PSFB31: Proc Options(Main);
Dcl SYSPRINT file;
Dcl X Fixed Binary(31);
Dcl CTFB31 external entry
Options(COBOL);
X=1;
Call CTFB31( X );
End;
|
IDENTIFICATION DIVISION.
PROGRAM-ID. CTFB31.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
LINKAGE SECTION.
1 X PIC S9(9) USAGE IS BINARY.
PROCEDURE DIVISION USING X.
DISPLAY X.
GOBACK.
END PROGRAM CTFB31.
|