When writing administration programs in COBOL, please observe the following points:
If you are working with the printable string tables for the return codes (the COPY member KCAPRINC), you will need to remember that, in COBOL, a table always begins with the index “1”, whereas return code values always begin with “0”. You can program accesses to a printable return code in the table as follows:
MOVE MC-TEXT (KC-MAINCODE + 1) TO MC. MOVE SC-TEXT (KC-SUBCODE + 1) TO SC.
The data structure KC-ADM-PARAMETER with the call parameters for the administration interface begins on level 1. KC-ADM-PARAMETER therefore has to be stored in the WORKING-STORAGE-SECTION or the LOCAL-STORAGE-SECTION section.
If a data structure contains substructures, then these should generally be addressed in fully qualified form.
Example
MOVE SIGN-YEAR IN SIGN-TIME-DATE IN KC-USER-STR TO ...