19.12.トリガーサンプルCLP |
PGM (&PARM1 &PARM2) DCL &PARM1 *CHAR ( 136 ) DCL &PARM2 *CHAR ( 4 ) /* BINARY */ DCL &FNAME *CHAR ( 10 ) /*物理ファイル名 */ DCL &LNAME *CHAR ( 10 ) /*物理ファイル・ライブラリー */ DCL &MNAME *CHAR ( 10 ) /*メンバー名刻 */ DCL &TEVEN *CHAR ( 1 ) /*トリガー事象ック・レベル */ DCL &TTIME *CHAR ( 1 ) /*トリガー時刻 */ DCL &CMTLCK *CHAR ( 1 ) /*コミット・ロック・レベル */ DCL &FILL1 *CHAR ( 3 ) /*予約済み */ DCL &CCSID *CHAR ( 4 ) /* CCSID */ DCL &FILL2 *CHAR ( 8 ) /*予約済み */ DCL &OLDOFF *CHAR ( 4 ) /*元のレコードのオフセットイ */ DCL &OLDLEN *CHAR ( 4 ) /*元のレコードの長さプの長さ */ DCL &ONOFF *CHAR ( 4 ) /*元のレコードの NULL バイ */ DCL &ONLEN *CHAR ( 4 ) /*NULL バイト・マップの長さ */ DCL &NOFF *CHAR ( 4 ) /*新しいレコードのオフセット */ DCL &NEWLEN *CHAR ( 4 ) /*新しいレコードの長さの長さ */ DCL &NNOFF *CHAR ( 4 ) /*新しいレコードの NULL バ */ DCL &NNLEN *CHAR ( 4 ) /* NULL バイト・マップの長さ */ DCL &RESV3 *CHAR ( 16 ) /* 予約済み */ DCL &OREC *CHAR ( 16 ) /* 古いレコード */ DCL &OOMAP *CHAR ( 4 ) /* 古いレコードの NULL バイ*/ DCL &RECORD *CHAR ( 16 ) /* 新しい挿入レコ */ DCL &NNMAP *CHAR ( 4 ) /* 新しいレコードの NULL バ*/ CHGVAR &FNAME %SST(&PARM1 1 10) CHGVAR &LNAME %SST(&PARM1 11 10) CHGVAR &MNAME %SST(&PARM1 21 10) CHGVAR &TEVEN %SST(&PARM1 31 1) CHGVAR &TTIME %SST(&PARM1 32 1) CHGVAR &CMTLCK %SST(&PARM1 33 1) CHGVAR &FILL1 %SST(&PARM1 34 3) CHGVAR &CCSID %SST(&PARM1 37 4) /* BINARY */ CHGVAR &FILL2 %SST(&PARM1 41 8) CHGVAR &OLDOFF %SST(&PARM1 49 4) /* BINARY */ CHGVAR &OLDLEN %SST(&PARM1 53 4) /* BINARY */ CHGVAR &ONOFF %SST(&PARM1 57 4) /* BINARY */ CHGVAR &ONLEN %SST(&PARM1 61 4) /* BINARY */ CHGVAR &NOFF %SST(&PARM1 65 4) /* BINARY */ CHGVAR &NEWLEN %SST(&PARM1 69 4) /* BINARY */ CHGVAR &NNOFF %SST(&PARM1 73 4) /* BINARY */ CHGVAR &NNLEN %SST(&PARM1 77 4) /* BINARY */ CHGVAR &RESV3 %SST(&PARM1 81 16) CHGVAR &OREC %SST(&PARM1 97 16) CHGVAR &OOMAP %SST(&PARM1 113 4) CHGVAR &RECORD %SST(&PARM1 117 16) CHGVAR &NNMAP %SST(&PARM1 133 4) RETURN ENDPGM ADDPFTRGで設定します。 DSPFD FILE(KAKEFUDA/*ALL) TYPE(*TRG)で確認できます。 2001-1-1 |
You are at K's tips-n-kicks of AS/400
|
SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||