Interested to Buy Any Domain ? << Click Here >> for more details...
program to find the number of objects used in a given
program through a display.
- 2 Answers
- 8692 Views
- IBM, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / divakar
Instead you can do DSPPGMREF to *OUTFILE and read that
outfile in RPGLE program where Copying spoolfile to flat
file and reading flat file based on positions may cause
confusion and may cause to get incorrect values.
| Is This Answer Correct ? | 5 Yes | 0 No |
Answer / harshad r suryawaunshi
The main thing in this program would be commanf DSPPGMREF
* Creat a display file to enter program name with length 10
* execute command either calling another CL program or
through QCMDEXC in the same RPG.
DSPPGMREF PGM(XXXXXXXX) OUTPUT(*PRINT) OBJTYPE(*PGM)
This command willl generate spool file named QPDSPPGM
* Copy this spool file in a flat file with CPYSPLF command.
Again you can do it through CL or in the same RPG with
QCMDEXC
CPYSPLF FILE(QPDSPPGM) TOFILE(XXXXXX) SPLNBR(*LAST)
* from line no. 16 objects used in the program start.
Object name can be found from position 55. Read the file in
which spool file is copied. set a condition
C read XXXXXX
C
C dow not %eof(XXXXXX)
C eval Heading=%subst(XXXXXX:5:6)
C if status='Object'
C eval Objectnm=%subst(XXXXXX:55:10)
C Dsply bBJECTNM
C read XXXXXX
C Enddo
Heading is program defineed variable with character and
length 6.
| Is This Answer Correct ? | 4 Yes | 1 No |
How can a screen field that has changed since the last output operation be detected?
in rpg could u please tell me errors types and meanings like 3030 that ....
Can we journel logical file and access path? Can we use commitment control for non-join L.F?
What would be the effect on the field where reverse image, underline and high intensity?
i have 1000 records in pf.what are all the ways to read a particular name records in rpg?? ie.. in pf i have a name called demo appeared around 52 times hw will we read this particular records in rpg/400?.
what is the rpg system?
which program rpg or cl is efficent to update a transaction onto a database file and why ?
use of PUTOVR,OVRDTA,KEEP keywords?
Can more than one subfile record be displayed on one line?
we are sending data of physical file to screen design and it is showing no record why?
purpose of pannel group??/
can we perform CHAIN operation on Subfile record format....?
RPG400 
