IDENTIFICATION DIVISION.
PROGRAM-ID. CSFTD16.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
1 X USAGE IS COMPUTATIONAL-2.
PROCEDURE DIVISION.
MOVE 0 TO X.
CALL "PTFTD16" USING X.
GOBACK.
END PROGRAM CSFTD16.
|
PTFTD16: Proc (X) Options(COBOL);
Dcl SYSPRINT file;
Dcl X Float Decimal(16);
Put Skip List( X );
End;
|