FRFM

Pass COBOL or S-COBOL statements to the AMB generator without translation, in a freeform manner, and insert the statements in the program section where they are coded.

Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.

Syntax: for Format 1

For Working-Storage and Linkage Sections only

 FRFM   COBOLstatements|S-COBOLstatements

Syntax: for Format 2S

For Working-Storage and Linkage Sections only

        ENTER COBOL|ENTER S-COBOL
        COBOLstatements|S-COBOLstatements

Comments:

The next keyword (except the comment keyword, /*) terminates the FRFM function.
In Format 1, all COBOL and S-COBOL statements shift four spaces to the left during generation.
In Format 2, omit the FRFM keyword; all COBOL statements remain in Column 12 during generation.
Do not use the ENTER COBOL and ENTER S-COBOL statements within REPEAT or IF/ELSE-IF/ELSE structures.

Examples:

Code 77-level data structures and put the data elements in column 8.

 FRFM   77 FIELD-A         PIC S99 COMP-3.
        77 FIELD-B         PIC S99 COMP-3.
        77 FIELD-C         PIC S99 COMP-3.

Code 77-levels with Customizer symbols

 SYWS   &08+77  FIELD-A     PIC S99 COMP-3.
        &08+77  FIELD-B     PIC S99 COMP-3.
        &08+77  FIELD-C     PIC S99 COMP-3.