use RRN (Relative Record Number) to chain PF

部分数据如下, 这已是数据的T了

....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10..

     RRN ( PGMLOG )   PGMNAME     INFOTYPE  INFO                            TS                        

                  9   RPG06          B      pgm start...                    2013-07-20-04.16.01.112000

                 10   RPG06          E      pgm end.....                    2013-07-20-04.16.01.112000

                 11   RPG07          B      RPG07 pgm begin.                2013-07-20-04.18.22.686000

                 12   RPG06          B      pgm start...                    2013-07-20-04.19.27.335000

                 13   RPG06          E      pgm end.....                    2013-07-20-04.19.27.335000

                 14   PROC06         B      pgm start...                    2013-07-20-08.08.16.657000

程序如下:

 FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++

        *************** Beginning of data ***************

0001.00 FPGMLOG    IF   E             DISK    RECNO(RRN1)

0002.00                                                  

0003.00 DRRN1             S              9P 0 INZ(0)    

0004.00                                                  

0005.00  /free                                          

0006.00                                                  

0007.00   Read LogRec;                                  

0008.00   Dsply ('RRN='+%char(RRN1)); //可以直接读取RRN 

0009.00                                                  

0010.00   Eval RRN1=12;                                  

0011.00   Chain RRN1 LogRec; //可以根据RRN来chain PF

0012.00   If %Found();                                  

0013.00     Dsply ('RRN 12, INFO='+Info);                

0014.00   Else;                                          

0015.00     Dsply 'Not Found RRN12';                    

0016.00   Endif;                                        

0017.00                                                  

0018.00   Eval *inlr=*on;                                

0019.00   Return;                                        

0020.00  /end-free                                          

        ****************** End of data **********************

结果如下

Job 717828/C221561/QPADEV00D7 changed by JOBMANAGER.

DSPLY  RRN=9                                        

DSPLY  RRN 12, INFO=pgm start...                    

同理, 也可以用RRN去SETGT, SETLL PF的.