Q:Hi all,i want accurate answer with code using in built
functions.please sent me code as soon as posible.
I have program nmed PGM1 which '' RETRIEVE Current
production date''should correctly default the production
date for the user who is issuing raw materials to the
manufacturing.The production date can be different from the
celendra date.
However, the program does not make the correct adjustment
for all manufacturing plants.
there is a parameter which determines the
production start time e.g. 07:00 if the system time
precedes this,the program subtracts one from the celendra
day.This work fine when the celendar day starts after
production day as it does in England,the system should be
adding one to the celendar day during the overlap.
unfortunately the program was desined to assumed the
celendar day always starts before the production day.
Change required in the program:
Change the
PROGRAM PGM1 to use the new parrameter to decide whether to
add or subtract 1 from the celendar day when determining
the production date.
- 0 Answers
- 1754 Views
- TCS, I also Faced
- E-Mail Answers
No Answer is Posted For this Question
Be the First to Post Answer
How to call one program from another program in RPG? please help me with the code
WHAT IS MONMSG IDENTIFIER FOR STRTCPFTP command IN cl (as/400)?
1.CA(command Atention key)& CF(command Function key) difference with example?Please can any body tell me in real time exp? 2.Can any body tell me some mandatery function keys using while creating any screen with use of SDA-FUNCTION kEYS?
How to define data area in RPG program? In which scenario multi occurrence DS is use in AS400?
I have learnt through Net that Debugging a Batch job involves 1. Submit the job with the HOLD (*YES) parameter: SBMJOB HOLD(*YES) or Hold the job queue that before submitting the job by using the HLDJOBQ command. 2. Determine the job name, user, and number of the submitted job by using the WRKSBMJOB command. 3. Type the Start Service Job command on your screen: STRSRVJOB JOB(job name/user/number) 4. Type the Start Debug command on your screen: STRDBG 5. Release the job in the jobq. Type WRKSBMJOB and then put a 6 beside the job to be released and press enter, or, if the job queue was put on hold, release the job queue with the RLSJOBQ command. 6. A display appears when the job is ready to start, saying that you can now begin debugging the job. Press F10 to show the Command Entry display. 7. Now you can start debugging by entering an Add Break Point command: ADDBKP 8.ENDDBG 9.ENDSRVJOB I tried this for RPG/400 Program and up to six steps of the above it's ok,but for me no source is displayed and i typed DSPMODSRC in Command line but still i can't see the sourceif i press F.10 and enter command ADDBKP i don't know how to add break points through it,usually i add break points using F.6 for Interactive job debugs,but since this is batch i don't know sir,Please help me out. I was asked this question in a interview,i know only RPG/400 and i’m asking for debugging of RPG/400 program only sir. or is it only possible to debug BATCH RPG ILE JOB and it is not possible to debug BATCH RPG/400 JOB kindly help me out sir
i 'm new to as/400.in an interview i was asked this question.give a practical example for passing information or data through local data area. I know only that data area is an object used to store tiny bits of data or it can store one value at a time and it is used to store frequently changing values or datas.thats all i know about data area can any one tell me how local data area and user defined data area are used to pass data between jobs with a example or coding.thanks in advance.
Can we journel logical file and access path? Can we use commitment control for non-join L.F?
If the last record of a file has been read, and the next operation on that file is a READ operation, what will be the values of the input fields for that file? A. They will be blank and/or zero. B. They will be null. C. They will equal the values of the first record in the file. D. They will equal the values of the last record read.
How to create a key field for a logical file inside RPG?
How to check which are the pgms using 1 perticulate file.? I know there is many tool available for X-reference...but need to know is there any command available in the system...?
1.What is referential Integrity? 2.What is Foreign Key? 3.What is Transfer Control? 4.What is Free format?
To check the locks , we use cmd WRKOBJLCK , but how we confirm whether it's objeck lock / member lock. I confused with the Lock type and Status values...Can any body please tell me ...
RPG400 
