WORKING-STORAGE SECTION.

COPY EZAFTPKC.
01 REQUEST-GETL  PIC X(4) VALUE IS 'GETL'.
01 OPERATION     PIC X(4).
01 TYPE          PIC X(1).
01 SEQUENCE      PIC X(1).
01 VECTOR.
    05  BUFF-ADDR     USAGE IS POINTER.
    05  BUFF-ALET     USAGE IS POINTER.
    05  BUFF-LEN      PIC 9(8) COMP-5.
01  BUFFER            PIC X(100).

PROCEDURE DIVISION.

MOVE 'FIND' TO OPERATION.
MOVE 'M' TO TYPE.
MOVE 'F' TO SEQUENCE.

SET BUFF-ADDR TO THE ADDRESS OF BUFFER.
MOVE ZEROS TO BUFF-ALET.
MOVE SIZE OF BUFFER TO BUFF-LEN.

CALL 'EZAFTPKS' USING FCAI-Map REQUEST-GETL OPERATION 
TYPE SEQUENCE VECTOR.

MOVE 'COPY' TO OPERATION.
MOVE 'M' TO TYPE.

SET BUFF-ADDR TO THE ADDRESS OF BUFFER.
MOVE ZEROS TO BUFF-ALET.
MOVE SIZE OF BUFFER TO BUFF-LEN.

CALL 'EZAFTPKS' USING FCAI-Map REQUEST-GETL OPERATION 
TYPE VECTOR.