<<< CMD: CPYJOBSCDE >>>
|
1 2 3 4 5 |
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 >>>
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 |
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 |