ID #1298

スケジュール項目の複写

注意:状況は複写されません。SCDになります。

<<< CMD: CPYJOBSCDE >>>

CMD PROMPT('スケジュール項目の複写 ') PARM KWD(FROMJOB) TYPE(*NAME) LEN(10) MIN(1) + PROMPT('FROM ジョブ名') PARM KWD(NEWJOB) TYPE(*NAME) LEN(10) MIN(1) + PROMPT('NEW ジョブ名') <<< CLP: CPYJOBSCDE >>> PGM PARM(&FROMJOB &NEWJOB) DCL VAR(&FROMJOB) TYPE(*CHAR) LEN(10) DCL VAR(&NEWJOB) TYPE(*CHAR) LEN(10) DCL VAR(&CMD) TYPE(*CHAR) LEN(512) DCL VAR(&CMDSTR) TYPE(*CHAR) LEN(3000) DCL VAR(&CONTINUE) TYPE(*CHAR) LEN(16) DCL VAR(&ENTLEN) TYPE(*CHAR) LEN(4) DCL VAR(&ENTRY) TYPE(*CHAR) LEN(1156) DCL VAR(&FRQ) TYPE(*CHAR) LEN(10) DCL VAR(&HEADER) TYPE(*CHAR) LEN(140) DCL VAR(&JOBD) TYPE(*CHAR) LEN(20) DCL VAR(&JOBQ) TYPE(*CHAR) LEN(20) DCL VAR(&MSGQ) TYPE(*CHAR) LEN(20) DCL VAR(&NBRENT) TYPE(*CHAR) LEN(4) DCL VAR(&OFFSET) TYPE(*CHAR) LEN(4) DCL VAR(&RCYACN) TYPE(*CHAR) LEN(10) DCL VAR(&RELDAYMON) TYPE(*CHAR) LEN(50) DCL VAR(&SAVE) TYPE(*CHAR) LEN(10) DCL VAR(&SCDDATE) TYPE(*CHAR) LEN(10) DCL VAR(&SCDDAY) TYPE(*CHAR) LEN(70) DCL VAR(&SCDTIME) TYPE(*CHAR) LEN(6) DCL VAR(&STRPOS) TYPE(*CHAR) LEN(4) DCL VAR(&TEXT) TYPE(*CHAR) LEN(50) DCL VAR(&USER) TYPE(*CHAR) LEN(10) DCL VAR(&USRSPC) TYPE(*CHAR) LEN(20) + VALUE('CPYJOBSCDEQTEMP ') DLTUSRSPC USRSPC(QTEMP/CPYJOBSCDE) MONMSG MSGID(CPF0000) CALL QUSCRTUS PARM(&USRSPC 'CPYJOBSCDE' X'00000100' ' ' + '*ALL' ' ') CALL QWCLSCDE PARM(&USRSPC 'SCDL0200' &FROMJOB &CONTINUE 0) CALL QUSRTVUS PARM(&USRSPC X'00000001' X'0000008C' + &HEADER) IF (%SST(&HEADER 104 1) = 'I') DO SNDPGMMSG MSG('スケジュールリストが不完全です。') RETURN ENDDO CHGVAR VAR(&NBRENT) VALUE(%SST(&HEADER 133 4)) IF (%BIN(&NBRENT) = 0) DO SNDPGMMSG MSG('指定ジョブが見つからない。') RETURN ENDDO CHGVAR VAR(&ENTLEN) VALUE(%SST(&HEADER 137 4)) CHGVAR VAR(&OFFSET) VALUE(%SST(&HEADER 125 4)) CHGVAR VAR(%BIN(&STRPOS)) VALUE(%BIN(&OFFSET) + 1) CALL QUSRTVUS PARM(&USRSPC &STRPOS &ENTLEN &ENTRY) CHGVAR VAR(&CMD) VALUE(%SST(&ENTRY 645 512)) CHGVAR VAR(&FRQ) VALUE(%SST(&ENTRY 108 10)) CHGVAR VAR(&SCDDATE) VALUE(%SST(&ENTRY 22 10)) CHGVAR VAR(&SCDDAY) VALUE(%SST(&ENTRY 32 70)) CHGVAR VAR(&SCDTIME) VALUE(%SST(&ENTRY 102 6)) CHGVAR VAR(&RELDAYMON) VALUE(%SST(&ENTRY 118 50)) CHGVAR VAR(&SAVE) VALUE(%SST(&ENTRY 577 10)) CHGVAR VAR(&RCYACN) VALUE(%SST(&ENTRY 168 10)) IF (%SST(&ENTRY 537 10) *NE ' ') + CHGVAR VAR(&JOBD) VALUE(%SST(&ENTRY 537 10) *TCAT '/' + *TCAT %SST(&ENTRY 527 10)) ELSE CHGVAR VAR(&JOBD) VALUE(%SST(&ENTRY 527 10)) IF (%SST(&ENTRY 208 10) *NE ' ') + CHGVAR VAR(&JOBQ) VALUE(%SST(&ENTRY 208 10) *TCAT '/' + *TCAT %SST(&ENTRY 198 10)) ELSE CHGVAR VAR(&JOBQ) VALUE(%SST(&ENTRY 198 10)) CHGVAR VAR(&USER) VALUE(%SST(&ENTRY 547 10)) IF (%SST(&ENTRY 567 10) *NE ' ') + CHGVAR VAR(&MSGQ) VALUE(%SST(&ENTRY 567 10) *TCAT '/' + *TCAT %SST(&ENTRY 557 10)) ELSE CHGVAR VAR(&MSGQ) VALUE(%SST(&ENTRY 557 10)) CHGVAR VAR(&TEXT) VALUE('複写元:' *BCAT &FROMJOB) CHGVAR VAR(&CMDSTR) VALUE('ADDJOBSCDE JOB(' *TCAT &NEWJOB + *TCAT ') CMD(' *TCAT &CMD + *TCAT ') FRQ(' *TCAT &FRQ + *TCAT ') SCDDATE(' *TCAT &SCDDATE + *TCAT ') SCDDAY(' *TCAT &SCDDAY + *TCAT ') SCDTIME(' *TCAT &SCDTIME + *TCAT ') RELDAYMON(' *TCAT &RELDAYMON + *TCAT ') RCYACN(' *TCAT &RCYACN + *TCAT ') JOBD(' *TCAT &JOBD + *TCAT ') JOBQ(' *TCAT &JOBQ + *TCAT ') USER(' *TCAT &USER + *TCAT ') MSGQ(' *TCAT &MSGQ + *TCAT ') TEXT(''' *TCAT &TEXT + *TCAT ''')') CALL QCMDEXC PARM(&CMDSTR 3000) DLTUSRSPC USRSPC(QTEMP/CPYJOBSCDE) MONMSG MSGID(CPF0000) END: ENDPGM

タグ: -

関連エントリー: -

最終更新: 2017-04-09 13:34
製作者:
改訂: 1.1

Digg it! Share on Facebook このレコードを印刷する 友達に教える PDF ファイルで表示する
Propose a translation for Propose a translation for
この FAQ を評価してください:

評価点数: 0 (0 件の投票)

完全に役に立たない 1 2 3 4 5 最も価値がある

このエントリーにコメントできません。