16-bit signed binary integer

IDENTIFICATION DIVISION.
PROGRAM-ID. CSFB15.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
1   X  PIC S9(4) USAGE IS BINARY.
PROCEDURE DIVISION.
    MOVE 16 to X.
    CALL "PTFB15" USING X.
    GOBACK.
END PROGRAM CSFB15.
 

PTFB15: Proc(X) Options(COBOL);
  Dcl SYSPRINT file;
  Dcl X Fixed Binary(15,0);

  Put Skip List( X );
End;