Now, Get RPG Codes in all three formats only on this website on every RPGLE related programming article.

Fixed, /Free and Fully Free RPG


Display Format Lines in SEU AS400

Display Format Lines in SEU AS400
Display Format Lines in SEU AS400, showing format lines in SEU, strseu
Display Format Lines in SEU AS400

Display Format lines

command F is used to display the format line above this line.

For RPGLE source member - H specs

 Columns . . . :    6 100                                       Edit                                              EASYCLASS1/ILERPG
 SEU==>                                                                                                                     ILEPGM1
 FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Comments++++++++++++                            
        *************** Beginning of data ***************************************************************************************  
F001.00 H                                                                                                   200616                 
0002.00  * Global variables (accessible to all sub procedures local to this program)                        200811                 
0003.00 D Sum             S              4P 0                                                               200811                
 Columns . . . :    6 100                                       Edit                                              EASYCLASS1/ILERPG
 SEU==>                                                                                                                     ILEPGM1
 FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Comments++++++++++++                            
        *************** Beginning of data ***************************************************************************************  
FMT H   HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Comments++++++++++++                            
0001.00 H                                                                                                   200616                 
0002.00  * Global variables (accessible to all sub procedures local to this program)                        200811                 
0003.00 D Sum             S              4P 0                                                               200811                 

For RPGLE source member - D specs

 Columns . . . :    6 100                                       Edit                                              EASYCLASS1/ILERPG
 SEU==>                                                                                                                     ILEPGM1
 FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Comments++++++++++++                            
        *************** Beginning of data ***************************************************************************************  
0001.00 H                                                                                                   200616                 
0002.00  * Global variables (accessible to all sub procedures local to this program)                        200811                 
F003.00 D Sum             S              4P 0                                                               200811                 
0004.00                                                                                                     200811                 
0005.00                                                                                                     200811                 
0006.00  * SubProcedure prototype                                                                           200811                 
0007.00 DSubProcedure1    PR             4P 0                                      * Return                 200811                 
0008.00 D                                4P 0  VALUE                               * Num 1                  200811                 
0009.00 D                                4P 0  VALUE                               * Num 2                  200811                 
 Columns . . . :    6 100                                       Edit                                              EASYCLASS1/ILERPG
 SEU==>                                                                                                                     ILEPGM1
 FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Comments++++++++++++                            
        *************** Beginning of data ***************************************************************************************  
0001.00 H                                                                                                   200616                 
0002.00  * Global variables (accessible to all sub procedures local to this program)                        200811                 
FMT D   DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++Comments++++++++++++                            
0003.00 D Sum             S              4P 0                                                               200811                 
0004.00                                                                                                     200811                 
0005.00                                                                                                     200811                 
0006.00  * SubProcedure prototype                                                                           200811                 
0007.00 DSubProcedure1    PR             4P 0                                      * Return                 200811                 
0008.00 D                                4P 0  VALUE                               * Num 1                  200811                 
0009.00 D                                4P 0  VALUE                               * Num 2                  200811                 

For RPGLE source member - C specs

 Columns . . . :    6 100                                       Edit                                              EASYCLASS1/ILERPG
 SEU==>                                                                                                                     ILEPGM1
 FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Comments++++++++++++                            
        *************** Beginning of data ***************************************************************************************  
0001.00 H                                                                                                   200616                 
0002.00  * Global variables (accessible to all sub procedures local to this program)                        200811                 
0003.00 D Sum             S              4P 0                                                               200811                 
0004.00                                                                                                     200811                 
0005.00                                                                                                     200811                 
0006.00  * SubProcedure prototype                                                                           200811                 
0007.00 DSubProcedure1    PR             4P 0                                      * Return                 200811                 
0008.00 D                                4P 0  VALUE                               * Num 1                  200811                 
0009.00 D                                4P 0  VALUE                               * Num 2                  200811                 
F010.00 C                                                                                                   211204                 
0011.00  /Free                                                                                              200811                 
 Columns . . . :    6 100                                       Edit                                              EASYCLASS1/ILERPG
 SEU==>                                                                                                                     ILEPGM1
 FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Comments++++++++++++                            
        *************** Beginning of data ***************************************************************************************  
0001.00 H                                                                                                   200616                 
0002.00  * Global variables (accessible to all sub procedures local to this program)                        200811                 
0003.00 D Sum             S              4P 0                                                               200811                 
0004.00                                                                                                     200811                 
0005.00                                                                                                     200811                 
0006.00  * SubProcedure prototype                                                                           200811                 
0007.00 DSubProcedure1    PR             4P 0                                      * Return                 200811                 
0008.00 D                                4P 0  VALUE                               * Num 1                  200811                 
0009.00 D                                4P 0  VALUE                               * Num 2                  200811                 
FMT C   CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq....Comments++++++++++++                            
0010.00 C                                                                                                   211204                 
0011.00  /Free                                                                                              200811                 

Related Post

Post a Comment

© AS400 and SQL Tricks. All rights reserved. Developed by Jago Desain