在cl程序中怎么让输出都输出到spool file

李海隽

只是如果作业一直不结束，那么假脱机文件就有太多页了。

yyangonline

原帖由 xuguopeng 于 2007-6-6 13:36 发表
DSPJOBLOG *PRINT  试试

才发现把这句话加到CL程序的最后一行，就是我想要的效果

yyangonline

/* =========================================================== */
/* CL program */

/* =========================================================== */

makeGM

/* =========================================================== */
/*your declaraitons.*/
DCL &FLDLEN *DEC LEN(5 0) VALUE(25)
DCL &FIELD type(*CHAR) LEN(25) value(hello)
/* =========================================================== */
    DCL         VAR(&MSGDTA) TYPE(*CHAR) LEN(80)
    DCL         VAR(&MSGID) TYPE(*CHAR) LEN(7)
    MONMSG      MSGID(CPF0000 MCH0000) EXEC(GOTO CMDLBL(ERROR))
/* =========================================================== */
/*your codes*/

/*CALL QSNDDTAQ PARM(test wy &FLDLEN &FIELD)*/
SNDPGMMSG   MSG('hello')
dspjoblog output(*print)




/* =========================================================== */
    RETURN


/*ERROR HANDLE*/
ERROR:   RCVMSG      MSGTYPE(*EXCP)   MSGDTA(&MSGDTA) +
                     MSGID(&MSGID)
       MONMSG      MSGID(CPF0000)
       SNDPGMMSG   MSGID(&MSGID) MSGF(QCPFMSG) MSGDTA(&MSGDTA) +
                     MSGTYPE(*ESCAPE)
       MONMSG      MSGID(CPF0000)

       ENDPGM

__________________________________________________________________
More than what i want. Great!