107 図4　総称見出しのレイアウト PGM PARM( + &PRMKBN + &PRMSPF + &PRMJOB + &PRMUSR + &PRMJNO + &PRMSFN ) /* 変数定義 */ DCL VAR(&PRMKBN) TYPE(*CHAR) LEN(1) /* 処理区分 */ /* ３＝保留　４＝削除　５＝表示　６＝送信 */ DCL VAR(&PRMSPF) TYPE(*CHAR) LEN(10) /* ＳＰＬＦ名 */ DCL VAR(&PRMJOB) TYPE(*CHAR) LEN(10) /* ＪＯＢ名 */ DCL VAR(&PRMUSR) TYPE(*CHAR) LEN(10) /* ユーザー名 */ DCL VAR(&PRMJNO) TYPE(*CHAR) LEN(6) /* 番号 */ DCL VAR(&PRMSFN) TYPE(*DEC) LEN(6 0) /* ＳＰＬＦ番号 */ DCL VAR(&PRMJBN) TYPE(*CHAR) LEN(8) /* ＪＯＢシステム名 */ /* 保留 */ IF COND(&PRMKBN *EQ '3') + THEN(DO) HLDSPLF FILE(&PRMSPF) + JOB(&PRMJNO/&PRMUSR/&PRMJOB) SPLNBR(&PRMSFN) MONMSG MSGID(CPF0000) ENDDO /* 削除 */ IF COND(&PRMKBN *EQ '4') + THEN(DO) DLTSPLF FILE(&PRMSPF) + JOB(&PRMJNO/&PRMUSR/&PRMJOB) SPLNBR(&PRMSFN) MONMSG MSGID(CPF0000) ENDDO /* 表示 */ IF COND(&PRMKBN *EQ '5') + THEN(DO) CPYSPLF FILE(&PRMSPF) TOFILE(*LIBL/WFR10HPF) + JOB(&PRMJNO/&PRMUSR/&PRMJOB) + SPLNBR(&PRMSFN) TOMBR(&PRMMBR) MONMSG MSGID(CPF0000) ENDDO /* 送信 */ IF COND(&PRMKBN *EQ '6') + THEN(DO) RLSSPLF FILE(&PRMSPF) + JOB(&PRMJNO/&PRMUSR/&PRMJOB) SPLNBR(&PRMSFN) MONMSG MSGID(CPF0000) ENDDO ENDPGM 0 CHAR(64) ユーザー域 64 BINARY(4) 総称見出しのサイズ 68 CHAR(4) 構造のリリースおよびレベル 72 CHAR(8) 形式名 80 CHAR(10) 使用された API 90 CHAR(13) 作成された日時 103 CHAR(1) 情報の状況 104 BINARY(4) 使用されるユーザー空間のサイズ 108 BINARY(4) 入力パラメーター・セクションへのオフセット 112 BINARY(4) 入力パラメーター・セクションのサイズ 116 BINARY(4) 見出しセクションのオフセット 120 BINARY(4) 見出しセクションのサイズ 124 BINARY(4) リスト・データ・セクションのオフセット 128 BINARY(4) リスト・データ・セクションのサイズ 132 BINARY(4) リスト項目の数 136 BINARY(4) 各項目のサイズ 140 BINARY(4) リスト項目のデータの CCSID 144 CHAR(2) 国別 ID 147 CHAR(3) 言語 ID 149 CHAR(1) サブセットされたリスト標識 150 CHAR(42) 予約済み 図5　出力待ち行列処理実行プログラム