Call function codes
In the application program, identify the function codes the program will use in the IMS compatible calls to AR/CTL. The program uses a variable to identify each function code; the value of the variable is the actual function code. If the program already contains these structures for IMS, no changes are necessary.
You can use any name for the function variables, including the value of the function itself, within the conventions of the programming language. The value must be 4 bytes long. For function codes less than 4 bytes (such as GU and GN), pad the value with trailing blanks.
Define call function codes in the working storage section. Use level 77 or level 01-49 entries. You can use a COBOL COPY statement to include these standard descriptions in the application program:
77 XRST PIC X(4) VALUE 'XRST'.
77 CHKP PIC X(4) VALUE 'CHKP'.
Was this page helpful? Yes No
Submitting...
Thank you
Comments
Log in or register to comment.