次に示すパラメタを指定して,スプールサーバで印刷します。
|
コーディング例を次に示します。
IDENTIFICATION DIVISION.
PROGRAM-ID.
COBOLSAMPLE.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
CDECL IS CDECL.
EXTERNAL-PROGRAM SECTION.
CALL-CONVENTION.
'PrintReport' IS CDECL.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 EURPMPARAM.
COPY 'EURPMPARAM1.cbl'
01 RTNCODE PIC S9(9) BINARY.
PROCEDURE DIVISION.
PROC1 SECTION.
MOVE SPACE TO PRINTERNAME.
MOVE SPACE TO TRAYNAME.
MOVE ZERO TO PRINTSTARTPAGE.
MOVE ZERO TO PRINTENDPAGE.
MOVE 'REPORTSET1.txt' TO REPORTSETFILE.
MOVE 'MULTIFORMINFO1.txt' TO MULTIFORMINFO.
MOVE SPACE TO REPORTNAME.
MOVE SPACE TO MAPPINGDATA.
MOVE SPACE TO USERDEFDATA.
CALL 'PrintReport' USING BY REFERENCE EURPMPARAM
RETURNING RTNCODE.
EXIT PROGRAM.