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