program to find the number of objects used in a given
program through a display.
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 |
Need a sql query: retrive all duplicate records in table
Can we trigger an rpg program which has user interaction with display file when updating a file using the command ADDPFTRG?
what is the necessary keyword needed to scroll subfile records?
What is a record lock error?
What will happen if we r using seton lr after return or vice versa.
What is journalling and commitment control?
What is significance of a file designated as a Primary file in Rpg400 program....also what's use of secoundry file
how to retrieve particular field records from a physical file,say i have a physical file called 'employee' in it i have to retrieve the records of a field 'admin' present in pf 'employee' using rpg,but i should not use logical file or openquery file.
how to run only 10 modules of existing N modules in service program in RPGILE ?
Set on command is used for closed all opened files , initialize var and release resource , return cmd is used for return to calling program but my req. Is dnt close opened files and resource must released while doing transactions , how can i do this...?
Need a sql query: retrieve all duplicate records in table?
What is I90(Insure 90)?