Example of the SCMD call instruction

WORKING-STORAGE SECTION.

COPY EZAFTPKC.
01 REQUEST-SCMD PIC X(4) VALUE IS 'SCMD'.
01 SCMD-MODE-W  PIC X(1) VALUE IS 'W'.
01 SCMD-MODE-N  PIC X(1) VALUE IS 'N'.
01 SUBCOMMAND.
   05  SUBCOMMAND-LEN PIC 9(2) COMP-5 VALUE IS 13.
   05  SUBCOMMAND-VAL PIC X(13) VALUE IS 'open hostname'.


PROCEDURE DIVISION.

CALL 'EZAFTPKS' USING FCAI-Map REQUEST-SCMD SUBCOMMAND
SCMD-MODE-W.

For equivalent PL/I and assembler language declarations, see Converting parameter descriptions.