4.7.5 Sample Set up of Process Information - PR@IDS
The following RPG/400 code shows the necessary field settings for the Process Information data structure - PR@IDS.
I* Program Information Data Structure
I*
I$PID SDS 200
I *PROGRAM $PGMNM
I*
C* Clear the exchange list
C*
C Z-ADD0 PR@NXL
C Z-ADD1 PR@NXP
C*
C MOVEL<function>PR@FUN Function name
C MOVEL<fdesc> PR@FUD Function
C* description
C MOVEL*BLANKS PR@NXT
C MOVEL*BLANKS PR@NXD
C MOVEL<ptype> PR@TYP Process type
C* MNU,FUN,CMD,
C* HLP, or EXT
C MOVEL<process> PR@PRO Process name
C MOVEL<pdesc> PR@PRD Process
C* description
C MOVEL'L' PR@RCL Heavy = N,
C* LIGHT = L
C MOVEL'DIS' PR@MDE
C MOVEL*BLANKS PR@VER
C MOVELSA@KEH PR@CEX
C MOVELSA@KCN PR@CMN
C MOVELSA@KMS PR@CDM
C MOVELSA@KAD PR@CAD
C MOVELSA@KCH PR@CCH
C MOVELSA@KDL PR@CDL
C MOVEL'00' PR@CU1
C MOVEL'00' PR@CU2
C MOVEL'00' PR@CU3
C MOVEL'00' PR@CU4
C MOVEL'00' PR@CU5
C MOVE *BLANKS PR@CD1
C MOVE *BLANKS PR@CD2
C MOVE *BLANKS PR@CD3
C MOVE *BLANKS PR@CD4
C MOVE *BLANKS PR@CD5
C MOVEL*BLANKS PR@KEY
C MOVEL*BLANKS PR@ELK
C*
C*
C* $PGMNM is the name of this program
C* from the Program Information Data Structure (PIDS)
C*
C MOVEL$PGMNM PR@RMQ
C MOVE '01' PR@NIC
C MOVEL'Y' PR@RQR
C MOVEL'Y' PR@SAA
C MOVE 'N' PR@EPR