Program Painter Keywords

Purpose:

Program Painter keywords designate program Divisions and Sections. The keyword you choose determines the location of your program code within the generated program.

Program Painter keywords also designate blocks of code within which all other categories of AMB structures are coded. Following any keyword, you can enter

• Program code, including COBOL and S-COBOL structures; database and data communication calls
• Data structures
• Report Writer structures
• User-defined rules

Code keywords in the Program Painter for batch, report, or complex online programs, or Online Express.

Program Painter keywords:

The following lists the keywords and their logical placement in a program.

Coding Conventions:

• Code keywords in the Program Painter for batch, report, or complex online programs, or in Online Express.
  Note: A keyword is active until the appearance of another keyword, except for the comment keyword.
• You can code keywords in any sequence. Remember, keywords designate blocks of logically related statement blocks and the action of one keyword is terminated by the appearance of the next keyword. The AMB generators use these keywords to arrange the program according to COBOL program requirements.

Pass-Through Keyword:

The SQL keyword enables you to code and pass through native SQL calls, without translation, to the precompile process.

Examples:

The following examples include all AMB keywords that you can enter in the Program Painter when creating online or batch programs. They illustrate:

• The program locations where each keyword places the source code after you generate the program through AMB to produce an executable COBOL program.
• The program locations at which AMB places externally-defined components associated with your program, such as user-defined rules and data structures that you list on the Project Explorer.

Online programs:

*SYM1 keyword places Customizer code here
*user rules from Appl View where Location=Top of program
*SYM2 keyword places Customizer code here
 IDENTIFICATION DIVISION.  
          .
          .
          .
*/* keyword places comments here
 REMARKS.  REM keyword places comments here (COBOL)
 ENVIRONMENT DIVISION.  
          .
          .
          .
 SPECIAL-NAMES.  SPNM keyword places code here
*SYEN keyword places Customizer code here
 DATA DIVISION.  
*SYDD keyword places Customizer code here
 WORKING-STORAGE SECTION.  
*user rules from Appl View where Location=Top of W-S
*data structures from from Appl View where Location=Top of W-S
*user rules from Appl View where Location=Working-Storage
*SYWS keyword places Customizer code here
*WS  keyword, followed by any of the following six 
*    keywords that you enter on the next line
*01   keyword
*REC  keyword
*DS   keyword
*SQL  keyword
*FRFM keyword
*user rules from Appl View where Location=Bottom of W-S
*CA, CA05, CADS keywords place code here in CICS, IMS, 
*    DLG parent pgms
 LINKAGE SECTION.  
*user rules from Appl View where Location=Top of Linkage
*data structures from Appl View where Location=Linkage Section
*user rules from Appl View where Location=Linkage Section
*SYLT keyword places Customizer code here
*SYLK keyword places Customizer code here
*LK  keyword, followed by any of the following six 
*    keywords that you enter on the next line
*01   keyword
*DS   keyword
*REC  keyword
*SQL  keyword
*FRFM keyword
*CA, CA05, CADS keywords place code here in DLG child programs
*user rules from Appl View where Location=Bottom of Linkage
 PROCEDURE DIVISON.  NTRY|PROC keyword generates this stmt
*OPT keyword places code here
          .
          .
          .
*PARA keyword places code here
          .
          .
          .
*STUB keyword places code here
          .
          .
          .
*user rules from Appl View where Location=Bottom of program
*SYBT keyword places Customizer code here
*End of program.  

Batch programs:

*SYM1 keyword places Customizer code here
*user rules from Appl View where Location=Top of program
*SYM2 keyword places Customizer code here
 IDENTIFICATION DIVISION.  
          .
          .
          .
*/* keyword places comments here (COBOL II)
 REMARKS.  REM keyword places comments here (COBOL)
 ENVIRONMENT DIVISION.  
          .
          .
          .
 SPECIAL-NAMES.  SPNM keyword places code here
*SYEN keyword places Customizer code here
 INPUT-OUTPUT SECTION.  
*user rules from Appl View where Location=Top of I/O Section 
*SYIO keyword places Customizer code here
 FILE-CONTROL.  
*IO   keyword places code here
          .
          .
          .
 DATA DIVISION.  
*SYDD keyword places Customizer code here
 FILE SECTION.  
*user rules from Appl View where Location=Top of File Section
*FD keyword places code here
*SD keyword places code here
 WORKING-STORAGE SECTION.  
*user rules from Appl View where Location=Top of W-S
*data structures from from Appl View where Location=Top of W-S
*user rules from Appl View where Location=Working-Storage
*SYWS keyword places Customizer code here
*WS  keyword, followed by any of the following six 
*    keywords that you enter on the next line
*01   keyword
*REC  keyword
*DS   keyword
*SQL  keyword
*FRFM keyword
*user rules from Appl View where Location=Bottom of W-S
 LINKAGE SECTION.  
*user rules from Appl View where Location=Top of Linkage
*data structures from Appl View where Location=Linkage Section
*user rules from Appl View where Location=Linkage Section
*SYLT keyword places Customizer code here
*SYLK keyword places Customizer code here
*LK  keyword, followed by any of the following six 
*    keywords that you enter on the next line
*01   keyword
*DS   keyword
*REC  keyword
*SQL  keyword
*FRFM keyword
*user rules from Appl View where Location=Bottom of Linkage
 PROCEDURE DIVISON.       /*NTRY keyword generates this stmt
 PROCEDURE DIVISON USING. /*PROC keyword generates this stmt
 DECLARATIVES.          /* DECL keyword generates this stmt
 DECLARATIVES SECTION.  /* DPAR generates this stmt
*DPAR keyword places code here
 END DECLARATIVES.
*OPT keyword places code here
          .
          .
          .
*PARA keyword places code here
          .
          .
          .
*STUB keyword places code here
          .
          .
          .
*user rules from Appl View where Location=Bottom of program
*SYBT keyword places Customizer code here
*End of program.