Interested to Buy Any Domain ? << Click Here >> for more details...
In ProgramB there is a SBMJOB, which is a call to program C
.There is also a CALL to program D from B. How would you
check the program C has been executed in D?
- 4 Answers
- 11325 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Can Use Data Area to solve above problem
CHGDTAARA DTAARA(xyz) WITH STATUS 'N'
CALL PGM (PGMC)
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(SNDM))
CHGDTAARA DTAARA(xyz) WITH STATUS 'Y'
SNDM : -------
Now you can check with status in Data Area wether PGMC
Executed or not
| Is This Answer Correct ? | 6 Yes | 0 No |
Answer / david lex
On submission of program C, collect the job information.
Pass it to program D/load it in a data file/etc, then have
program D check the status of that job using a CL command
or an API.
| Is This Answer Correct ? | 1 Yes | 1 No |
Answer / samul
Using SNDPGMMSG in SBMJOB using MSGTYPE(*COMP) and In PGMB
receive the msg from pgmq if it is *COMP then sbmjob
completed normally.
| Is This Answer Correct ? | 0 Yes | 1 No |
I have one cl program which calls two rpg programs named a & b. I am loading a run time array in Pgm A and the control comes back to cl pgm. i call pgmb and I want to read the runtime array in pgmb which was loaded in pgma. How it can be acheived. I should not use any intermediate file or dataarea to store the loaded values.
how can you display specific subfile page on the screen in unequal subfile?
What is journalling and commitment control?
what is the equivalent keyword for CHAIN opcode ??
I have to change a program. This program is calling a subroutine mor than 100times within it. so will it have any performance issue? if yes than what changes i can make. Thanx for ur valuable answer.
How to read alternative records in a pf by using rpg?
RETRIVING DELETED RECORDS :- I'm frequently asked how to retrieve deleted records from an unjournaled physical file when the deleted records have not yet been removed from the file. Utility UNDEL lets you undelete records in a physical file. This public domain program is available in CISC and RISC versions, and the complete source code is available for download at: UNDEL for AS/400 Save File (RISC): http://www.as400network.com/sharewarefiles/undelris.zip UNDEL for AS/400 Save File (CISC): http://www.as400network.com/sharewarefiles/undel.zip UNDEL for AS/400 Save File (Source code): http://www.as400network.com/sharewarefiles/undelsrc.zip The utility takes advantage of the fact that deleted records in physical files are only flagged as deleted, and the record data still exists until it is overwritten or the file is reorganized with a utility such as RGZPFM. UNDEL simply reads the deleted record, then reuses the record by writing over it with the new record (thus eliminating the flag for the deleted record). Some homegrown and commercial utilities copy the file containing undeleted records to a save file, then use a program to read the save file, which contains live and undeleted records, to a file to undelete the records. The UNDEL utility is superior to the SAVF technique because there's no need to copy the file to a save file, which is especially important for really large files. When run, UNDEL displays the physical file records in their unformatted, raw text form. You can either position the display to a given relative record number or use F19 or F20 to find the previous and next deleted record, respectively. The utility also includes online help, which is almost unheard of for free utilities. Other utilities include the ability to undelete records. You can use the RTVDLTRCD command in the old QUSRTOOL (no longer supported by IBM). QUSRTOOL is now a commercial product called TAA Productivity Tools ( http://www.taatool.com ). The free file editor WRKDBF has a built-in undelete capability ( http://www.wrkdbf.com ), and several commercial file editors can undelete records. For a complete list of file editors, go to http://www.sourcebook400.com, select "Programmer Tools" under "Product Category," then select "File Editors."
program to find the number of objects used in a given program through a display.
1.How can you search an entire source file for a particular field name? 2.How can you find the differences between two versions of the source for the same program? 3.What is a hidden field as it relates to a sub file? 4.How do you display a sub file that has no records in the sub file?
suppose we have 10 members in physical file and i have to use 4 out of 10 so how can we read this in RPG
am 2010 passed out . can any one tell me which course is good to put 2+fake .guide me
Can someone tell me tell me what is meant by message wait...?
RPG400 
