Ü  Compiler directive

·         Compiler directive is an instruction (directive) given to the compiler, to perform some specific task during compilation or to generate customize compiler listing report after compilation.

·         Compiler directive serve many purposes like it is used to control the heading information in compiler listing, to control the spacing of the compiler listing, to include source statement from other source member, to do a free form calculation in our rpgle program, to control the source records selection/omission based on some condition etc.

·         Compiler directives are:

(1)     /FREE... /END-FREE

(2)      /TITLE

(3)     /EJECT

(4)     /SPACE

(5)     /COPY or /INCLUDE

(6)     /IF……/ELSEIF…. /ELSE…… /ENDIF

(7)     /EOF

 

 

(1) /FREE... /END-FREE (Positions 7-11)

Compiler directive /FREE... /END-FREE is used to do a free-form calculation in our program.

 

Positions Entry Detail:

 

Positions

Positions Entry Detail

7-11

/FREE or /ENDFREE

12-80

Blank

 

Example

 

/FREE
    f8  = %abs (float);        // "float" is now 1.
    i10 = %abs (integer);      // "integer" is now 123.
    p7  = %abs (packed);       // "packed" is now 1234.567.
 /END-FREE

 



 

(2) /TITLE (Positions 7-12)

 

§  Compiler directive /TITLE is used to add heading information in the compiler listing.

§  A program can contain more than one /TITLE statement.

§  Each /TITLE statement provides heading information for the segment of compiler listing until another /TITLE statement is encountered.

§  A /TITLE statement is printed in addition to compiler heading information.

§  Each /TITLE statement is printed on a new page.

§  Positions Entry Detail:

 

Positions

Positions Entry Detail

7-12

/TITLE

13

Blank

14-100

Title information

 

Example

 

Columns . . . :    6 100                                      Browse                  		IROBO1/QRPGLESRC
SEU==>                                                                                         		INZRPG
FMT ** ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
*************** Beginning of data ************************************************************************
0001.00  /TITLE this is 1st title                                                                           130119
0002.00 Da                S             10A   inz(*ALL'Z')                                                  130119
0003.00 Db                S             10A   inz(*blanks)                                                  130119
0004.00  /TITLE this is 2nd title                                                                           130119
0005.00 Dc                S             10  0 inz(*zeros)                                                   130119
0006.00 Dd                S             10A   inz                                                           130119
0007.00 De                S             10  0 inz                                                           130119
0008.00  /TITLE this is 3rd title                                                                           130119
0009.00 C     a             DSPLY                                                                           130119
0010.00 C     b             DSPLY                                                                           130119
0011.00 C     c             DSPLY                                                                           130119
0012.00 C     d             DSPLY                                                                           130119
0013.00 C     e             DSPLY                                                                           130119
0014.00 C                   SETON                                        LR                                 130119
****************** End of data ***************************************************************************

 

 

Generated spool file: In the spool file below first title will be printed at the beginning of the source listing and the last title will be repeatedly printed at the beginning of each section (Diagnostic message, Cross reference, External reference, Message summary etc.).

 

					     Display Spooled File
File  . . . . . :   INZRPG                                                                               Page/Line   1/1
Control . . . . .   T                                                                                    Columns     1 - 130
Find  . . . . . .   this is
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3


this is 1st title
5722WDS V5R3M0  030905 RN        IBM ILE RPG             IROBO1/INZRPG            PUB1       01/19/13 22:54:15        Page      1
Command  . . . . . . . . . . . . :   CRTBNDRPG
Issued by  . . . . . . . . . . :     IROBO
Program  . . . . . . . . . . . . :   INZRPG
Library  . . . . . . . . . . . :     IROBO1
Text 'description' . . . . . . . :   *SRCMBRTXT
Source Member  . . . . . . . . . :   INZRPG
Source File  . . . . . . . . . . :   QRPGLESRC
Library  . . . . . . . . . . . :     IROBO1
CCSID  . . . . . . . . . . . . :     273
Text 'description' . . . . . . . :   inz keyword
Last Change  . . . . . . . . . . :   01/19/13  22:54:11
Generation severity level  . . . :   10
Default activation group . . . . :   *YES
Compiler options . . . . . . . . :   *XREF      *GEN       *NOSECLVL  *SHOWCPY
*EXPDDS    *EXT       *NOSHOWSKP *NOSRCSTMT
*DEBUGIO   *NOEVENTF
Preprocessor options . . . . . . :   *NONE


this is 1st title
5722WDS V5R3M0  030905 RN        IBM ILE RPG             IROBO1/INZRPG            PUB1       01/19/13 22:54:15        Page      2
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
S o u r c e   L i s t i n g
1 Da                S             10A   inz(*ALL'Z')                                                        130119     000200
2 Db                S             10A   inz(*blanks)                                                        130119     000300

this is 2nd title
5722WDS V5R3M0  030905 RN        IBM ILE RPG             IROBO1/INZRPG            PUB1       01/19/13 22:54:15        Page      3
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
3 Dc                S             10  0 inz(*zeros)                                                         130119     000500
4 Dd                S             10A   inz                                                                 130119     000600
5 De                S             10  0 inz                                                                 130119     000700

this is 3rd title
5722WDS V5R3M0  030905 RN        IBM ILE RPG             IROBO1/INZRPG            PUB1       01/19/13 22:54:15        Page      4
Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
6 C     a             DSPLY                                                                                 130119     000900
7 C     b             DSPLY                                                                                 130119     001000
8 C     c             DSPLY                                                                                 130119     001100
9 C     d             DSPLY                                                                                 130119     001200
10 C    e             DSPLY                                                                                 130119     001300
11 C                  SETON                                        LR----                                   130119     001400
* * * * *   E N D   O F   S O U R C E   * * * * *


this is 3rd title
5722WDS V5R3M0  030905 RN        IBM ILE RPG             IROBO1/INZRPG            PUB1       01/19/13 22:54:15        Page      5
A d d i t i o n a l   D i a g n o s t i c   M e s s a g e s
Msg id  Sv Number Seq     Message text
* * * * *   E N D   O F   A D D I T I O N A L   D I A G N O S T I C   M E S S A G E S   * * * * *



this is 3rd title
5722WDS V5R3M0  030905 RN        IBM ILE RPG             IROBO1/INZRPG            PUB1       01/19/13 22:54:15        Page      6
C r o s s   R e f e r e n c e
File and Record References:
File              Device             References (D=Defined)
Record
No references in the source.
Global Field References:
Field             Attributes         References (D=Defined M=Modified)
A                 A(10)                   1D      6
B                 A(10)                   2D      7
C                 P(10,0)                 3D      8
D                 A(10)                   4D      9
E                 P(10,0)                 5D     10
Indicator References:
Indicator                            References (D=Defined M=Modified)
LR                                       11D
* * * * *   E N D   O F   C R O S S   R E F E R E N C E   * * * * *



this is 3rd title
5722WDS V5R3M0  030905 RN        IBM ILE RPG             IROBO1/INZRPG            PUB1       01/19/13 22:54:15        Page      7
E x t e r n a l   R e f e r e n c e s
Statically bound procedures:
Procedure                            References
No references in the source.
Imported fields:
Field             Attributes         Defined
No references in the source.
Exported fields:
Field             Attributes         Defined
No references in the source.
* * * * *   E N D   O F   E X T E R N A L   R E F E R E N C E S   * * * * *



this is 3rd title
5722WDS V5R3M0  030905 RN        IBM ILE RPG             IROBO1/INZRPG            PUB1       01/19/13 22:54:15        Page      8
M e s s a g e   S u m m a r y
Msg id  Sv Number Message text
* * * * *   E N D   O F   M E S S A G E   S U M M A R Y   * * * * *



this is 3rd title
5722WDS V5R3M0  030905 RN        IBM ILE RPG             IROBO1/INZRPG            PUB1       01/19/13 22:54:15        Page      9
F i n a l   S u m m a r y
Message Totals:
Information  (00) . . . . . . . :        0
Warning      (10) . . . . . . . :        0
Error        (20) . . . . . . . :        0
Severe Error (30+)  . . . . . . :        0
Total . . . . . . . . . . . . . :        0
Source Totals:
Records . . . . . . . . . . . . :       11
Specifications  . . . . . . . . :       11
Data records  . . . . . . . . . :        0
Comments  . . . . . . . . . . . :        0
* * * * *   E N D   O F   F I N A L   S U M M A R Y   * * * * *




Program INZRPG placed in library IROBO1. 00 highest severity. Created on 01/19/13 at 22:54:16.
* * * * *   E N D   O F   C O M P I L A T I O N * * * * *
                          

 

 



 

(3) /EJECT (Positions 7-12)

 

§  Compiler directive /EJECT is used to make the compiler add new pages on each subsequent source specifications of the compiler listing.

 

§  Positions Entry Detail:

 

Positions

Positions Entry Detail

7-12

/EJECT

13-49

Blank

50-100

Comments

 

Example

 

Columns . . . :    6  76            Edit                        AMIT/QRPGLESRC 
 SEU==>                                                               SFLMSGPGM 
 FMT *   *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+. 
0007.00  *                                                                      
0008.00 C     SFLCLEAR      BEGSR                                               
0008.01 C                   SETON                                        41     
0008.02 C                   WRITE     ACCCTL                                    
0008.03 C                   SETOFF                                       41     
0009.00 C                   ENDSR                                               
0009.01  /EJECT                                                                 
0010.00  *                                                                      
0011.00 C     SFLLOAD       BEGSR                                               
0011.01 C                   EVAL      RRN=0                                     
0011.02 C                   DO        10                                        
0011.03 C                   EVAL      FIELD1='XXXXXXXXXX'                       
0011.04 C                   EVAL      FIELD2='YYYYYYYYYY'                       
0011.05 C                   EVAL      RRN=RRN+1                                 
0011.06 C                   WRITE     ACCSFL                                    
0011.07 C                   ENDDO                                               
0012.00 C                   ENDSR                                               
                                                                                
 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle       
 F16=Repeat find       F17=Repeat change          F24=More keys    
             

 

 

 

                              Display Spooled File                              
 File  . . . . . :   SFLMSGPGM                        Page/Line   3/49          
 Control . . . . .                                    Columns     1 - 78        
 Find  . . . . . .                                                              
 *...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+... 
     30 C                   SETON                                        41---- 
     31 C                   WRITE     ACCCTL                                    
     32 C                   SETOFF                                       41---- 
     33 C                   ENDSR                                               
    THIS IS THE END OF THE CONTENT...   
                                        
  5722WDS V5R4M0  060210 RN        IBM ILE RPG             AMIT/SFLMSGPGM       
 Line   <---------------------- Source Specifications ------------------------- 
 Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+. 
     34  *                                                                      
     35 C     SFLLOAD       BEGSR                                               
     36 C                   EVAL      RRN=0                                     
     37 C                   DO        10                                        
     38 C                   EVAL      FIELD1='XXXXXXXXXX'                       
     39 C                   EVAL      FIELD2='YYYYYYYYYY'                       
     40 C                   EVAL      RRN=RRN+1                                 
     41 C                   WRITE     ACCSFL                                    
                                                                        More... 
 F3=Exit   F12=Cancel   F19=Left   F20=Right   F24=More keys         
            

 

 

 


 

(4) /SPACE (Positions 7-12)                   

 

§  Compiler directive /SPACE is used to control line spacing within the source section of the compiler listing.

 

§  Positions Entry Detail:

 

Positions

Positions Entry Detail

7-12

/EJECT

13

Blank

14-16

integer value from 1 through 112 to define the number of lines to space

17-49

Blank

50-100

Comments

 

 

                      

 

(5)/COPY or /INCLUDE

 

§  /COPY, /INCLUDE is used to add source records to the current program from other source members.

§  The /COPY and /INCLUDE directives have the same purpose and the same syntax, but are handled differently by the SQL preprocessor.

§  The /COPY directive is expanded by the preprocessor. The copied file can contain embedded SQL or host variables.

§  The /INCLUDE directive is not expanded by the preprocessor. The included file cannot contain embedded SQL or host variables.

§  Positions Entry Detail:

 

Positions

Positions Entry Detail

7-12

/COPY or /INCLUDE

13

Blank

14-16

integer value from 1 through 112 to define the number of lines to space

17-49

Blank

50-100

Comments

 

 

/COPY and /INCLUDE files can be either physical files or IFS files.

When specifying a physical file, the library, file, and member name, can be in one of these formats:

· libraryname/filename,membername
· filename,membername
· membername

    • A member name must be specified.
    • If a file name is not specified, QRPGLESRC is assumed.
    • If a library is not specified, *LIBL is assumed.

 

EXAMPLE

 

 

Columns . . . :    6  80                     Edit                            AMITCC/QRPGLESRC
SEU==>
FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
*************** Beginning of data *****************************************************
0001.00 HDftActGrp(*No) ActGrp('ACT1')                                                  130124
0002.00 DCALL1            PR                                                            130124
0003.00  *                                                                              130124
0004.00  /COPY AMITCC/QRPGLESRC,E_PSDSCOPY                                              130124
0005.00  *                                                                              130124
0006.00 D@ERR             S             50    INZ(*BLANKS)                              130124
0007.00                                                                                 130121
0008.00 C  N44              CALLP     CALL1                                             130124

---------------------------------------------------------------------------------------- 

 

 

 

OUTPUT

 

When we compile the program then we see that the code is expanded as below in the compiler listing, i.e. the copy book is replaced with the actual source records.

 

3  *
4  /COPY AMITCC/QRPGLESRC,E_PSDSCOPY
*--------------------------------------------------------------------------------------------*
* RPG member name  . . . . . :  E_PSDSCOPY                                                   *
* External name  . . . . . . :  AMITCC/QRPGLESRC(E_PSDSCOPY)                                 *
* Last change  . . . . . . . :  01/24/13  06:07:05                                           *
* Text 'description' . . . . :  COPY BOOK PSDS DATA STRUCTURE                                *
*--------------------------------------------------------------------------------------------*
5+ *
6+DMYPSDS          SDS
7+DPROC_NAME          *PROC
8+ * Procedure name
9+DPGM_STATUS         *STATUS
10+ * Status code
11+D LINE_NUM               21     28
12+ * Source statement line no.
13+ *
14  *

 

 


 

(6) /IF, /ELSEIF, /ELSE, /ENDIF, /DEFINE

 

§  /IF compiler directive is used to do the conditional compilation.

§  If the condition expression is true, source lines following the /IF directive are included in the current source to be read by the compiler. Otherwise, lines are excluded until the next /ELSEIF, /ELSE or /ENDIF in the same /IF group.

§  Positions Entry Detail:

 

Positions

Positions Entry Detail

7-9

/IF

10

Blank

11-80

Condition expression

81-100

Comments

 

 

§  The /ELSEIF compiler directive is used to test a condition expression within /ELSEIF group. The following entries are used for /ELSEIF:

 

 

Positions

Positions Entry Detail

7-13

/ELSEIF

14

Blank

15-80

Condition expression

81-100

Comments

 

 

 

 

§  The /ELSE compiler directive is used to unconditionally select source lines if /IF or /ELSEIF tests falis.

 

 

Positions

Positions Entry Detail

7-11

/ELSE

12-80

Blank

81-100

Comments

 

 

§  The /ENDIF compiler directive is used to end the /IF, /ELSEIF or /ELSE group.

 

 

Positions

Positions Entry Detail

7-12

/ENDIF

13-80

Blank

81-100

Comments

 

 

§  /DEFINE is used to define an element that will be used as a condition element for /IF, /ELSEIF directive.

 

 

EXAMPLE

 

Columns . . . :    6  80                     Browse                          AMITCC/QRPGLESRC
SEU==>                                                                             DEFINE_EX1
FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
*************** Beginning of data ****************************************************
0001.00 HDftActGrp(*No) ActGrp('TEST1')                                                 130124
0002.00  /DEFINE def1                                                                   130125
0003.00 DCALL1            PR                                                            130124
0004.00  *                                                                              130124
0005.00  /IF DEFINED(def1)                                                              130125
0006.00  /COPY AMITCC/QRPGLESRC,E_PSDSCOPY                                              130124
0007.00  /ENDIF                                                                         130125
0008.00  *                                                                              130124
0009.00 D@ERR             S             50    INZ(*BLANKS)                              130124
0010.00                                                                                 130121
0011.00 C  N44              CALLP     CALL1                                             130124
0012.00 C                   SETON                                        LR             130122 


 

Output

 

 

Here, copybook E_PSDSCOPY will be included in our program since we have defined def1.

 


 

 

(7)  /EOF Directive

 

The /EOF directive tells the compiler to ignore the rest of the source lines in the current source member.

 










User Comments:



Subscribe

  Email:



Copyright © www.go4as400.com, 2013-2017. Copyright notice