********************************* TOP OF DATA **********************************
DSNH003I S DSNHIORT FILE "SYSIN " PARAMETERS INCORRECT
SOURCE STATISTICS
SOURCE LINES READ: 0
NUMBER OF SYMBOLS: 0
SYMBOL TABLE BYTES EXCLUDING ATTRIBUTES: 0
THERE WERE 1 MESSAGES FOR THIS PROGRAM.
THERE WERE 0 MESSAGES SUPPRESSED BY THE FLAG OPTION.
4000 BYTES OF STORAGE WERE USED BY THE PRECOMPILER.
RETURN CODE IS 12
******************************** BOTTOM OF DATA ********************************
DSNH003I S DSNHIORT FILE "SYSIN " PARAMETERS INCORRECT
SOURCE STATISTICS
SOURCE LINES READ: 0
NUMBER OF SYMBOLS: 0
SYMBOL TABLE BYTES EXCLUDING ATTRIBUTES: 0
THERE WERE 1 MESSAGES FOR THIS PROGRAM.
THERE WERE 0 MESSAGES SUPPRESSED BY THE FLAG OPTION.
4000 BYTES OF STORAGE WERE USED BY THE PRECOMPILER.
RETURN CODE IS 12
******************************** BOTTOM OF DATA ********************************
in my COBOL program, the only SYSIN parameter that I used is to accept the value from the Date-Card and I did not include the SYSIN in the compiler. the date card format is YYYYMMDD.
ACCEPT WS-CARD-DATE FROM SYSIN.
MOVE CARD-DD TO WS-PRT-DD
WS-LETT-DD.
MOVE CARD-MM TO WS-PRT-MM
WS-LETT-MM.
MOVE CARD-YY TO WS-PRT-YY
WS-LETT-YY.
MOVE CARD-DD TO WS-PRT-DD
WS-LETT-DD.
MOVE CARD-MM TO WS-PRT-MM
WS-LETT-MM.
MOVE CARD-YY TO WS-PRT-YY
WS-LETT-YY.
Date-Card
01 WS-CARD-DATE.
05 CARD-YY PIC 9999.
05 CARD-MM PIC 99.
05 CARD-DD PIC 99.
05 CARD-YY PIC 9999.
05 CARD-MM PIC 99.
05 CARD-DD PIC 99.