OS/360および後継機種のサポートプログラム

この記事では、 OS/360 および後継製品に含まれる、または利用可能なサポート プログラムについて説明します。IBM は、これらのプログラムの一部をユーティリティ^{[1] [a]として分類し、その他をサービス エイド[2]}として分類しています。これらの境界は必ずしも一貫しているわけではなく、明確でもありません。これらのプログラムの多くは、ユーティリティ ソフトウェアの種類と一致しますが、すべてではありません。

以下のリストは、OS/360 および後継製品に関連するプログラムについて説明しています。DOS 、TPF、またはVMユーティリティは含まれていません。

これらのプログラムの多くは、 SHAREグループを通じて IBM ユーザーによって設計され、その後、ユーザーが最初に作成したバージョンから IBM によって変更または拡張されました。

これらのプログラムは通常、ジョブ制御言語(JCL)を介して呼び出されます。データ セットには、 共通の JCL DD 識別子 (OS、現在はz/OSオペレーティング システム内) を使用する傾向があります。

IDCAMS (「アクセス メソッド サービス」) は、仮想ストレージ アクセス メソッド(VSAM) および非 VSAM データセットを生成および変更します。IDCAMS は、 OS/VSで VSAM とともに導入されました。「アクセス メソッド」という用語の意味は、OS/VS の当初の「VSAM は他のすべてのアクセス メソッドを置き換える」という考え方から派生したものです。IDCAMS は、おそらくすべてのユーティリティ プログラムの中で最も多くの機能を備えており、VSAM ファイルと非 VSAM ファイルの両方に対して多くの機能を実行します。

次の例は、IDCAMS を使用してデータセットをディスクにコピーする方法を示しています。データセットには 80 バイトのレコードがあり、システムは出力のブロック サイズを選択します。

// XXXXXXXWジョブXXXXXXX 、AAAA 、CLASS = G 、MSGCLASS = 1 、NOTIFY =& SYSUID // STEP001 EXEC PGM = IDCAMS // SYSIN     DD *    REPRO INFILE(FILE01) OUTFILE(FILE02) /* // FILE01    DD DSN = PROD . FILE1 . INPUT 、disp = shr ..... // FILE02    DD DSN = PROD . FILE2 .出力、// DISP = ( NEW 、CATLG 、DELETE )、// UNIT = DASD 、// SPACE = ( TRK 、( 100 、10 )、RLSE )、// DCB = ( RECFM = FB 、BLKSIZE = 0 、LRECL = 80 ) // SYSPRINT DD SYSOUT = * // SYSOUT    DD SYSOUT = * // SYSUDUMP DD SYSOUT = *   
   



   

            
            
               
            
 
 


//*

上記の例では、SYSIN 制御カードはインストリーム ファイルから取得されますが、必要に応じて、制御カードまたは一時データ セットを含む任意のシーケンシャル ファイルまたは PDS メンバーを指定することもできます。SYSIN ファイルの使用例は次のようになります。

// SYSIN     DD DSN = PROD . MYFILE . REPRO 、DISP = SHR

またはこれ:

// SYSIN     DD DSN = PROD . MYLIB . CNTLLIB ( REPRO )、
// DISP = SHR            

IEBCOMPR は、順次データ セットまたは区分データ セット内のレコードを比較します。

IEBCOMPR ユーティリティは、2 つの連続データセットまたはパーティション化されたデータセットを比較するために使用されます。このデータセットの比較は、論理レコード レベルで実行されます。したがって、IEBCOMPR は、データセットのバックアップ コピーが正しいこと (元のデータセットと完全に一致していること) を確認するためによく使用されます。

処理中、IEBCOMPR は各データ セットの各レコードを 1 つずつ比較します。レコードが等しくない場合、IEBCOMPR は SYSOUT に次の情報をリストします。

• 問題となっているレコード番号とブロック番号。
• 不整合が発生した DD ステートメントの名前。
• 不平等な記録。

順次データ セットを比較する場合、IEBCOMPR は次の条件が満たされるとデータ セットが等しいと見なします。

• データ セットには同じ数のレコードが含まれています。
• 対応するレコードとキーは同一です。

パーティション データ セットの場合、IEBCOMPR は次の条件が満たされるとデータ セットが等しいとみなします。

• 2 つのパーティション データ セットのディレクトリ エントリは一致します。つまり、名前は同じで、エントリの数も同じです。
• 対応するメンバーには同じ数のレコードが含まれます。
• 対応するレコードとキーは同一です。

処理中に 10 個の不等な比較が見つかった場合、IECOMPR は適切なメッセージで終了します。

// XXXXXXXWジョブXXXXXXX 、AAAA . A . A 、CLASS = G 、MSGCLASS = 1 、NOTIFY = XXXXX // STEP01 EXEC PGM = IEBCOMPR 、ACCT = PJ00000000 // INCLUDE MEMBER=@BATCHS //*SYSIN DD DUMMY // SYSIN DD *    COMPARE TYPORG=PO /* // SYSUT1    DD DSN = XXXXXXX . OLDFILE 、UNIT = DASD 、DISP = SHR // SYSUT2    DD DSN = XXXXXXX . NEWFILE 、UNIT = DASD 、DISP = SHR // SYSUT #    DD    
    
       

注: IEBCOMPR は、あまり柔軟で使いやすい比較プログラムではありません。比較を特定の列だけに制限できず、空白の相違を無視できず、レコード内のどこで相違が発生したかが示されず、相違が 10 個発生すると停止します。一方、高速で、すべての IBM メインフレームに存在します。したがって、再ブロック化されていないロード モジュールを比較したり、コピーが正しく機能したかどうかを確認したりするなど、正確な一致が期待される場合に非常に便利です。プログラムやレポートの比較には、ISPF SuperC (ISRSUPC) 比較プログラムが代わりに使用されることがよくあります。

IEBCOPY は、区分データ セットをコピー、圧縮、およびマージします。また、コピー操作中に指定されたメンバーを選択または除外したり、メンバーの名前を変更したり、メンバーを置き換えたりすることもできます。

IEBCOPY が実行できるタスクには次のようなものがあります。

• バックアップまたは転送のために、PS データセットへのパーティション データ セット(PDS)のアンロードを作成します。
• 削除されたメンバーの未使用領域を再利用するために PDS をその場でコピーします。PDS の圧縮とも呼ばれます。
• 選択したメンバーを別の PDS にコピーしています。
• PDS の選択したメンバーの名前を変更します。
• 複数のパーティション化されたデータ セットを 1 つの PDS にマージします。
• ロード モジュールの変更、コピー、および再ブロック化。
• 別の PDS に既に存在するメンバーは、R オプションが指定されない限り置き換えられません。

IEBCOPYユーティリティの場合、コピーに必要なジョブ制御ステートメントは次のとおりです。

//ステップ名EXEC PGM = IEBCOPY // SYSPRINT DD SYSOUT = class // MYDD1     DD DSN = xxxx . ppp . psps 、DISP = SHR // MYDD2     DD DSN = xxxx . ppp . pssp 、DISP = SHR // SYSIN     DD *     COPY INDD=MYDD1、OUTDD=MYDD2                            SELECT MEMBER=(MEM1、MEM2、MEM3)/ EXCLUDE MEMBER=(SF、DF、SA)   

MYDD1 および MYDD2 DD ステートメントは、それぞれ区分入力データ セットおよび出力データ セット用にユーザーが選択した名前です。デフォルトは SYSUT1 および SYSUT2 です。これらの 2 つの DD ステートメントには、任意の有効な DDNAME を使用できます。これらの DDNAME は、ユーティリティー制御ステートメントで指定され、IEBCOPY に入力データ セットおよび出力データ セットの名前を伝えます。圧縮する PDS には、1 つの DD ステートメントのみが必要です。

IEBDG (「データ ジェネレーター」) は、パターン化されたデータで構成されるテスト データセットを作成します。制御ステートメントは、位置、長さ、形式、実行する初期化など、作成するレコードのフィールドを定義します。IEBDG は、既存のデータセットを入力として使用し、制御ステートメントで指定されたとおりにフィールドを変更できます。たとえば、名前フィールドをランダムなアルファベット テキストに置き換えます。各フィールドの内容は、レコードごとに変更できます。たとえば、後続の各レコードで英数字フィールドの文字を左または右に回転します。

例：

// XXXXXXXWジョブXXXXXXX 、AAAA 、CLASS = G 、MSGCLASS = 1 、NOTIFY =& SYSUID //*************************************************************************** //* 後で使用するデータセットの作成//**********************************************************************     // CRSTEP EXEC PGM = IEFBR14 // DDCREA    DD DSN =& SYSUID .. MVSUT . SEQOUT 、DISP = ( NEW 、CATLG ) //*************************************************************************** //* TESTDATA の作成//***********************************************************************               // STEP1 EXEC PGM = IEBDG // SYSPRINT DD SYSOUT = * // SEQOUT    DD DSN =& SYSUID .. MVSUT . SEQOUT 、DISP = OLD // SYSIN     DD DATA       DSD OUTPUT=(SEQOUT)                                                      FD NAME=FIELD1、LENGTH=30、STARTLOC=1、FORMAT=AL、ACTION=TL                 FD NAME=FIELD2、LENGTH=30、STARTLOC=31、FORMAT=AL、ACTION=TR                FD NAME=FIELD3、LENGTH=10、STARTLOC=71、PICTURE=10、X                   P'1234567890'、INDEX=1                                        CREATE QUANTITY=500、NAME=(FIELD1、FIELD2、FIELD3)、FILL=X'FF'               END                                                                /* //*************************************************************************** //* テスト データを SYSOUT に印刷します//*******************************************************************     // STEP2 EXEC PGM = IEBGENER // SYSPRINT DD SYSOUT = * // SYSUT1    DD DSN = * . STEP1 . SEQOUT , DISP = SHR // SYSIN     DDダミー//   



                                     




                                                    
                                                  
                      
                                                      







 



                                          
                                           
                        
                                              
SYSUT2    DD SYSOUT = * //*********************************************************************** //* 前のステップが異常終了した場合でも、作成されたデータセットを削除します//**********************************************************************                                            // DLSTEP EXEC PGM = IEFBR14 、COND = EVEN // DDDEL     DD DSN =& SYSUID .. MVSUT . SEQOUT 、DISP = ( OLD 、DELETE 、DELETE ) // 



                                

IEBEDIT は JCL の一部を選択的にコピーします。

IEBEDIT プログラムの例:

// IEBEDITJジョブACCT 、'' 、CLASS = P 、MSGCLASS = T 、MSGLEVEL = ( 1 、1 )、NOTIFY =& SYSUID // STEP0001 EXEC PGM = IEBEDIT // SYSPRINT DD SYSOUT = * // SYSUT1    DD DSN = xxxxx . yyyyy . zzzzz 、DISP = SHR // SYSUT2    DD SYSOUT = ( * 、INTRDR ) // SYSIN     DD *     EDIT TYPE=INCLUDE、STEPNAME=(STEP10、STEP5、STEP15) /* //  
  

この例では、データ セット xxxxx.yyyyy.zzzzzz にジョブ (STEP5、STEP10、および STEP15 という名前のステップを含む) が含まれている必要があります。この IEBEDIT ルーチンは、ジョブの選択されたステップを SYSUT2 出力ファイル (この例では、内部リーダー) にコピーします。

EDIT ステートメントの構文は次のとおりです。

[ラベル] EDIT [START=ジョブ名] 
[,TYPE={POSITION|INCLUDE|EXCLUDE}] 
[,STEPNAME=(名前リスト)] 
[,NOPRINT]

START=jobnameEDIT ステートメントが適用される入力ジョブの名前を指定します。各 EDIT ステートメントは、別々のジョブに適用する必要があります。TYPE および STEPNAME なしで START が指定された場合、JOB ステートメントと指定されたジョブのすべてのジョブ ステップが出力に含まれます。

デフォルト: START が省略され、EDIT ステートメントが 1 つだけ指定されている場合、入力データ セットで最初に検出されたジョブが処理されます。最初のステートメント以外の EDIT ステートメントで START が省略されている場合、入力データ セットで見つかった次の JOB ステートメントから処理が続行されます。

TYPE={POSITION|INCLUDE|EXCLUDE}出力データセットの内容を指定します。次の値を指定できます。

POSITION出力が JOB ステートメント、STEPNAME パラメータで指定されたジョブ ステップ、およびそのジョブ ステップに続くすべてのステップで構成されることを指定します。指定されたステップに先行するすべてのジョブ ステップは操作から省略されます。POSITION がデフォルトです。

INCLUDE出力データ セットに JOB ステートメントと STEPNAME パラメータで指定されたすべてのジョブ ステップが含まれるように指定します。

EXCLUDE出力データ セットに JOB ステートメントと、STEPNAME パラメーターで指定されたステップを除く、ジョブに属するすべてのジョブ ステップが含まれるように指定します。

STEPNAME=(namelist)処理するジョブ ステップの名前を指定します。

namelist単一のジョブ ステップ名、カンマで区切られたステップ名のリスト、またはハイフンで区切られた連続したステップの範囲 (たとえば、STEPA-STEPE) を指定できます。これらの任意の組み合わせを 1 つの名前リストで使用できます。複数のステップ名を指定する場合は、名前リスト全体を括弧で囲む必要があります。

TYPE=POSITION でコーディングすると、STEPNAME は出力データ セットに配置される最初のジョブ ステップを指定します。このステップに先行するジョブ ステップは出力データ セットにコピーされません。

TYPE=INCLUDE または TYPE=EXCLUDE でコーディングする場合、STEPNAME は、操作に含めるか操作から除外するジョブ ステップの名前を指定します。たとえば、STEPNAME=(STEPA,STEPF-STEPL,STEPZ) は、ジョブ ステップ STEPA、STEPF から STEPL、および STEPZ が操作に含めるか操作から除外することを示します。

STEPNAME を省略すると、EDIT ステートメントで名前が指定されている入力ジョブ全体がコピーされます。ジョブ名が指定されていない場合は、最初に検出されたジョブが処理されます。

NOPRINTメッセージ データ セットに出力データ セットのリストを含めないことを指定します。

デフォルト: 結果の出力はメッセージ データ セットにリストされます。

詳細はこちらをご覧ください: [1]

IEBGENER は、シーケンシャル データセットからレコードをコピーするか、パーティション化されたデータセットを作成します。

IEBGENER が実行できるタスクには次のようなものがあります。

• 順次データ セットまたはPDSのメンバーのバックアップを作成します。
• 順次データ セットの物理ブロック サイズまたは論理レコード長を変更します。
• 編集されたデータセットを作成します。
• 順次データ セットまたは PDS のメンバーを印刷します。
• 順次入力データセットからパーティション化された出力データセットを作成します。

あるデータセットを別のデータセットにコピーする IEBGENER プログラムの例:

// IEBGENER JOB ACCT 、'DATA COPY' 、MSGCLASS = J 、CLASS = A // STEP010 EXEC PGM = IEBGENER // SYSUT1    DD DSN = xxxxx . yyyyy . zzzzz 、DISP = SHR // SYSUT2    DD DSN = aaaaa . bbbbb . ccccc 、DISP = (、CATLG )、// UNIT = SYSDA 、SPACE = ( TRK 、( 5 、5 )、RLSE )、// DCB = ( RECFM = FB 、LRECL = 1440 ) // SYSPRINT DD SYSOUT = * // SYSIN     DDダミー   
                          
 

            
            
                             

ストレート コピー タスクの場合、ソートプログラムの方が IEBGENER よりも高速に実行できることがよくあります。そのため、多くのメインフレーム ショップでは、このようなタスクを IEBGENER ではなくソート ICEGENER プログラムに自動的にルーティングするオプションを利用しています。

一部のシステムでは、出力を " "外部ライターに送ることで、バッチ ジョブから電子メールを送信できます。このようなシステムでは、手法は次のようになります。 SMTP

// IEBGENER JOB ACCT 、'DATA COPY' 、MSGCLASS = J 、CLASS = A // NORMRC EXEC PGM = IEBGENER // SYSPRINT DD SYSOUT = * // SYSUT1    DD * 、LRECL = 80 HELO <SYSTEMID> MAIL FROM:<USERID@SYSTEMID> RCPT TO:<USERID@SYSTEMID> DATA From: <USERID@SYSTEMID> To: <USERID@SYSTEMID>件名: テストメール   
    










メインフレームからのテストメール
。
終了
/* 
// SYSUT2    DD SYSOUT = ( B , SMTP ), LRECL = 80 
// SYSIN     DDダミー

メインフレームからメールを送信する際にファイルを添付することも可能です。

IEBIMAGE は、IBM 3211 プリンター、IBM 3800 レーザー印刷サブシステム、および IBM 4248 プリンターのさまざまな種類の定義 (別名イメージ) を操作します。一般的な用途としては、フォーム制御バッファー ( FCB )、文字配置テーブル、文字定義、およびテキストとともに出力に印刷されるフォームのイメージ、ページに印刷される会社のロゴ、または単に「グレーバー」ページ (前のグリーンバー用紙と一致するように、灰色と白の水平背景が交互に表示されるページ) の印刷などがあります。このユーティリティを使用すると、さまざまなフォームやロゴをイメージとして保存し、必要なときに同じ標準の白紙を使用して印刷できるため、多数の印刷済みフォームを保管する必要がなくなり、オペレーターがプリンターを停止して用紙を交換する必要もありません。

IEBISAM は、 ISAMデータセットをアンロード、ロード、コピー、および印刷します。

IBM マニュアル SC26-7414-08 z/OS DFSMSdfp ユーティリティーから抜粋: IEBISAM プログラムは配布されなくなりました。z/OS V1R7 以降、ISAM データ セットは処理 (作成、オープン、コピー、またはダンプ) できなくなりました。まだ使用されている ISAM データ セットは、VSAM キー順データ セットに変換する必要があります。

z/OS V1R7 より前では、アクセス方式サービスを使用して VSAM キー順データ セットを割り振り、ISAM データ セットをそこにコピーすることができました。

IEBPTPCH (「PrinT and PunCH」) は、順次またはパーティション化されたデータセットからレコードを印刷またはパンチします。

IEBPTPCH が実行できるタスクには次のようなものがあります。

• 順次またはパーティション化されたデータ セット全体を印刷またはパンチします(PDS)。
• 選択した PDS メンバーを印刷またはパンチします。
• 順次データ セットまたは区分データ セットから選択したレコードを印刷またはパンチします。
• PDS ディレクトリを印刷またはパンチします。
• 順次データ セットまたは PDS の編集バージョンを印刷またはパンチします。
• 空のデータセットを確認する

// IEBPTPCH JOB // EXEC PGM=IEBPTPCH // SYSIN     DD * PRINT MAXFLDS=2 TITLE ITEM=('Name',22),            ITEM=('GPA',50) TITLE ITEM=(' ',1) RECORD FIELD=(25,1,,22),            FIELD=(4,51,,50) /* // SYSPRINT DD SYSOUT = * // SYSUT1    DD *人 1 307 C Meshel Hall 3.89 2 人目 123 Williamson Hall 2.48 3 人目 321 Maag Library 1.52 /* // SYSUT2    DD SYSOUT = * // 
         

空のデータセットのチェック:チェックするデータセットが空の場合は RC=4、それ以外の場合は 0 です。

// IEBPTPCH JOB // EXEC PGM=IEBPTPCH // SYSUT1    DD DSN = <ファイル名>、DISP = SHR // SYSUT2    DD DUMMY 、// DCB = ( BLKSIZE = <ブロックサイズ>、RECFM=FA)         // SYSIN     DD * PRINT TYPORG=PS /* // SYSPRINT DD SYSOUT = * // 
         


          

2495 テープ カートリッジ リーダーからレコードを読み取ります。

順次データセット内またはパーティション化されたデータセットのメンバー内のレコードを変更します。IEBUPDTE によって置き換えられますが、互換性はありません。

IEBUPDTE ("UPDaTE") は、シーケンシャルまたはパーティション化されたデータセットへの変更を組み込みます。UNIXpatchユーティリティは同様のプログラムですが、異なる入力形式マーカーを使用します (例: MVS の "./ INSERT ..." は、Unix Patch では "@@..." になります)。

一部のプログラマーはこれを「IEB up-ditty」と発音します。

IEBUPDTE ユーティリティは、ソース ライブラリを管理するために使用されます。IEBUPDTE が実行できる機能には、次のようなものがあります。

• ライブラリの作成と更新
• シーケンシャルデータセットまたはPDSメンバーの変更
• データ セットの構成を順次からパーティションへ、またはパーティションから順次へ変更します。

IEBUPDTE は、ソース ライブラリをテープからDASDに配布するためによく使用されます。

IEBUPDTE は、ほとんどの IEB タイプのユーティリティで必要なのと同じジョブ制御ステートメントを使用します。唯一の例外は次のとおりです。

• IEBUPDTE は、EXEC ステートメントにコーディングされた PARM パラメーター NEW または MOD を受け入れます。NEWは、ユーティリティー制御ステートメントと入力データが SYSIN DD ステートメントに含まれているため、SYSUT1 DD ステートメントは不要であることを示します。MODは、SYSIN DD ステートメントにユーティリティー制御ステートメントのみが含まれており、入力データは含まれていないことを示します。したがって、入力データ セットを定義するには SYSUT1 DD ステートメントが必要です。
• IEBUPDTE は、SYSUT1 DD ステートメントまたは SYSIN DD ステートメントのいずれかから入力データ セットを読み取ります。

IEUPDTE で使用されるジョブ制御は次のとおりです。

//ステップ名EXEC PGM = IEUPDTE 、PARM = NEW // SYSPRINT DD SYSOUT = class // SYSUT1    DD ... // SYSUT2    DD ... // SYSIN     DD ...   

IEFBR14はダミー プログラムであり、通常、データセットの割り当てまたは削除のみが必要なアクションの場合に JCL に挿入されます。

IEFBR14ステップの例:

// IEFBR14 JOB ACCT 、'DELETE DATASET' // STEP01 EXEC PGM = IEFBR14 // DELDD     DD DSN = xxxxx . yyyyy . zzzzz 、// DISP = ( MOD 、DELETE 、DELETE )、UNIT = DASD    
    

            

OS/360 の呼び出しシーケンスには、レジスタ 14 の戻りアドレスが含まれていました。したがって、レジスタ 14 への分岐は、プログラムを直ちに終了します。ただし、このプログラムの実行前と実行後に、オペレーティング システムは DD ステートメントで指定されたとおりにデータセットを割り当てたり割り当て解除したりするため、データセットをすばやく設定または削除する方法としてよく使用されます。

当初は、単一の命令「Branch to Register」14 で構成されていました。IBMアセンブラで使用されていたニーモニックはBR であったため、IEF BR 14 という名前が付けられました。IEF は、OS/360 の「ジョブ管理」サブシステムの「プレフィックス」です。

この単一命令プログラムにはエラーがあり、戻りコードが設定されていませんでした。そのため、正しいステータスで終了するように戻りコードをクリアする 2 番目の命令を追加する必要がありました。

この 2 つの命令のプログラムには、IBM によって報告され修正された追加のエラーがありました。このエラーは、IEFBR14 プログラムが再入可能 (複数の呼び出し元によって同時に使用可能) としてリンク編集されていないために発生しました。

一部のハッカーは、IEFBR14 の BR 14 命令を BR 15 に変更し、「世界最短のループ」を作成しました。これは、レジスタ 15 には IEFBR14 モジュール自体のアドレスが含まれており、BR 15 命令はモジュールを永久に再呼び出しするだけだからです。

これらのユーティリティは通常、システム プログラマがシステム上でアプリケーション作業を行うのではなく、システムの動作を保守するために使用されます。

ICKDSF (「デバイス サポート機能」) は、オペレーティング システムまたはスタンドアロンで DASD をインストール、初期化、および保守します。

不良トラックに代替トラックを割り当てます。

IEHDASDR ^{[1] : 161–187}は、直接アクセス記憶装置^[b] (DASD) に対していくつかの操作を実行できます。

• オプションで表面チェックを行い、DASDボリュームを初期化する
• 不良トラックに代替トラックを割り当てる
• DASD上のトラックを印刷する
• DASDボリュームのバックアップをテープ上に作成する
• バックアップ テープから DASD ボリュームを復元します。

IBM は最終的に、IEHDASDR への新しいデバイス タイプのサポートの追加を停止し、ボリュームの初期化には無料の DSF を、ダンプ/復元には有料の DASDR (5740-UT1) とデータ機能/データ セット サービス (5740-UT3、DF/DSS) を顧客に案内しました。

IBMはMVS/XAからIEHDASDRを削除した。^[3]

IEHINITT ("INITialize Tape") は、テープ ラベルを書き込むことによってテープを初期化します。ユーティリティを 1 回実行すると、複数のテープにラベルを付けることができます。IBM 標準またはASCIIラベルを書き込むことができます。

IEHINITT プログラムの例:

// IEHINITT JOB ACCT 、'LABEL TAPES' 、MSGCLASS = J 、CLASS = A // STEP0001 EXEC PGM = IEHINITT 、REGION = 8 M // SYSPRINT DD SYSOUT = A // LABEL     DD DCB = DEN = 2 、UNIT = ( 3490 、1 、DEFER ) // SYSIN     DD * LABEL INITT SER=123450、NUMBTAPE=3 /*   
                        
 
 
 

この例では、3490 磁気テープ装置上の 3 つのテープにラベルを付けます。各テープには IBM 標準ラベルが付けられます。ラベルが付けられたテープごとに VOLSER が 1 ずつ増加します。各テープは、ラベル付け後に巻き戻されてアンロードされます。

IEHIOSUPはSYS1.SVCLIB内のタイプIVスーパーバイザコール（SVC）ルーチンの相対トラックアドレス（TTR）リンクを更新します。IEHIOSUPはOS/VS2以降ではサポートされなくなりました。^[4]

OPEN、CLOSE、EOV の各機能は、順番に実行される一連の SVC モジュールによって実行されます。一部のモジュールには、XCTLマクロが次のモジュールにリンクするために使用するテーブルが含まれています。パフォーマンス上の理由から、毎回ディレクトリ検索を回避するために、これらのテーブルにはモジュールの名前ではなくディスク アドレスが含まれています。SYS1.SVCLIB を更新すると、これらのアドレスが変わる可能性があるため、正しいアドレスをインストールするには IEHIOSUP を実行する必要があります。^[5]

これはIEHIOSUPを実行するために必要なJCLの例です。^[1]

// IHEIOSUPジョブ// EXEC PGM=IEHIOSUP // SYSUT1 DD DSNAME = SYS1 . SVCLIB ~ DISP = OLD 、UNIT = 2311 、// VOLUME = SER = 111111 // SYSPRINT DD SYSOUT = A // 
 

 

IEHLIST は、パーティション データセット (PDS) ディレクトリ内のエントリを一覧表示したり、ボリューム テーブル オブ コンテンツ ( VTOC )の内容を一覧表示したりするために使用されるユーティリティです。

IEHLIST ユーティリティは、次のいずれかに含まれるエントリを一覧表示するために使用されます。

• PDS ディレクトリ
• VTOC
• カタログ (OS CVOL)

IEHLIST プログラムの例:

// IEHLIST JOB ACCT 、'LIST PDS' 、MSGCLASS = J 、CLASS = A // STEP0001 EXEC PGM = IEHLIST 、REGION = 8 M // SYSPRINT DD SYSOUT = A // PDS1      DD DSN = xxxx . yyyy . zzzz 、DISP = OLD // SYSIN     DD *   LISTPDS DSNAME=xxxx.yyyy.zzzz、FORMAT /*    
                        

このジョブは、xxxx.yyyy.zzzz という名前の PDS の PDS ディレクトリのフォーマットされたリストを生成します。

VTOC をリストする IEHLIST プログラムの例は非常に似ています。

// IEHLIST JOB ACCT 、'LIST VTOC' 、MSGCLASS = J 、CLASS = A // STEP0001 EXEC PGM = IEHLIST 、REGION = 8 M // SYSPRINT DD SYSOUT = A // VOL1      DD VOL = SER = vvvvvv 、DISP = OLD // SYSIN     DD *   LISTVTOC VOL=SER=vvvvvv、FORMAT /*    
                        

IEHMOVE は、データのコレクションを移動またはコピーします。ただし、DFSMS ( System Managed Storage ) 環境が現在では一般的であり、IBM では、これらの環境で IEHMOVE ユーティリティを使用することは推奨していません。移動は、移動後に元のデータ セットが削除されるか、消去されるという点でコピーとは異なります。IEHMOVE が実行できるタスクには、次のものがあります。

• 順次および区分データセットの移動またはコピー
• 複数ボリュームのデータセットの移動またはコピー
• データセット全体を移動する

表面的には、IEHMOVE は IEBGENER および IEBCOPY ユーティリティと重複しているように見えるかもしれません。しかし、IEHMOVE の方が強力です。IEHMOVE を使用する主な利点は、新しいデータ セットのスペースまたはDCB情報を指定する必要がないことです。これは、IEHMOVE が既存のデータ セットに基づいてこの情報を割り当てるためです。

IEHMOVE のもう 1 つの利点は、データ セットのグループだけでなく、データのボリューム全体をコピーまたは移動できることです。データ セットまたはボリュームのグループを簡単に移動できるため、IEHMOVE ユーティリティは一般にシステム プログラマーに好まれています。

IEHMOVE ジョブのサンプル:

// stepname EXEC PGM = IEHMOVE 、PARM = 'LINECNT=xx、POWER=n' // SYSPRINT DD SYSOUT = class // SYSUT1    DD UNIT = aaaa 、VOL = SER = bbbbbb 、DISP = OLD // anyname1 DD UNIT = cccc 、VOL = SER = dddddd 、DISP = OLD // anyname2 DD UNIT = eeee 、VOL = SER = ffffff 、DISP = OLD // SYSIN     DD ...  

SYSPRINT および SYSIN 以外の IEHMOVE の DD ステートメントは、個々のデータ セットではなく、 DASD または磁気テープボリュームを参照します。ただし、ボリュームの参照は、ボリュームへの排他的アクセスを指定するため、問題を引き起こす可能性があります。したがって、IEHMOVE ジョブの実行中は、そのボリューム全体 (およびそのボリューム上のすべてのデータ セット) は他のユーザーには使用できません。これは、テープ ボリュームやマウント可能な DASD ボリュームなどのプライベート ボリュームでは許容されますが、パブリック ボリュームでは許容されません。 DISP=OLD

SYSUT1 DD ステートメントは、IEHMOVE に必要な 3 つの作業データ セットが割り当てられる DASD ボリュームを指定します。この DD ステートメントには、ユニットとボリュームの情報を指定する必要があります。

IEHMOVE は、 PL/Sで開発された最初のシステムの 1 つです。

この例では、3 つの順次データ セット (SEQSET1、SEQSET2、および SEQSET3) が 1 つのディスク ボリュームから 3 つの個別のディスク ボリュームに移動されます。3 つの受信ボリュームはそれぞれ、IEHMOVE によって要求されたときにマウントされます。ソース データ セットはカタログ化されません。スペースは IEHMOVE によって割り当てられます。

//ジョブを移動しました... // STEP1 EXEC PGM = IEHMOVE // SYSPRINT DD   SYSOUT = A // SYSUT1    DD   UNIT = disk 、VOLUME = SER = 333333 、DISP = OLD // DD1       DD   UNIT = ( disk ,, DEFER )、DISP = OLD 、// VOLUME = ( PRIVATE ,, SER = ( 222222 )) // DD2       DD   UNIT = ( disk ,, DEFER )、DISP = OLD 、// VOLUME = ( PRIVATE ,, SER = ( 222333 )) // DD3       DD   UNIT = ( disk ,, DEFER )、DISP = OLD 、// VOLUME = ( PRIVATE ,, SER = ( 222444 )) // DD4       DD   VOLUME = ( PRIVATE , RETAIN 、SER = ( 444444 ))、// UNIT = disk 、DISP = OLD // SYSIN     DD   *      MOVE DSNAME=SEQSET1、TO=disk=222222、FROM=disk=444444      MOVE DSNAME=SEQSET2、TO=disk=222333、FROM=disk=444444      MOVE DSNAME=SEQSET3、TO=disk=222444、FROM=disk=444444 /*     
     



             

             

             

             

IEHPROGM は、システム制御データを構築および維持します。また、データ セットの名前変更やスクラッチ (削除) にも使用されます。

IEHPROGM が実行できるタスクには次のようなものがあります。

• データセットまたはPDSメンバーの削除（スクラッチ）
• データセットまたはPDSメンバーの名前を変更する
• データセットのカタログ化またはカタログ解除
• システムPASSWORDデータセット内のデータセットパスワードの維持^[c]

カタログ作成の場合:

// SYSIN DD * 
   CATLG DSNNAME=データセット名、
   VOL=デバイス名=ボリューム番号
/* 
//

テープ エラーの SMFレコードを選択してフォーマットします。

これらのプログラムはオペレーティングシステムの制御下では実行されません

ダイレクト アクセス ボリュームをフォーマットし、代替トラックを割り当てます。

直接アクセス ボリュームをダンプして復元します。

代替トラックを割り当て、データを回復および置き換えます。

プリンタにフォーム制御バッファー (FCB) とユニバーサル文字セット (UCS) バッファーをロードします。

^{これらはIBMがサービスエイドや診断[6]}マニュアルに記載しているユーティリティプログラムです。オリジナルのOS/360サービスエイドの名前はIFCとIM*で始まっていましたが、IBMは命名規則をOS/VS1ではHM*、 OS/VS2ではAM*に変更しました。IBMはIFC規則を変更しませんでした。

SYS1.LOGREC データ セットを初期化します。

SYS1.LOGREC エラー記録データ セットからのレコードを要約して印刷します。

SVC や I/O 割り込みなどの選択されたシステム イベントをトレースします。

PTF を適用するために必要な JCL を生成し、PTF を適用します。このプログラムの機能はSMPに統合されています。

ロード モジュール、プログラム オブジェクト、またはディスク ファイル内の命令やデータを検証および/または置き換えます。

オブジェクト モジュール、ロード モジュール、プログラム オブジェクト、および CSECT 識別レコードをフォーマットして印刷します。

マップはモジュールをロードします。このプログラムの機能は IMBLIST に統合されています。

システム ジョブ キューをフォーマットして印刷するスタンドアロン プログラム。MVS には適用されません。

システム ジョブ キューをフォーマットして印刷します。MVS には適用されません。

コア ダンプ、TSOスワップ データ セット、および GTF トレース データをフォーマットして印刷します。

メイン ストレージの高速または低速ダンプを生成するスタンドアロン プログラム。

ソート/マージユーティリティは、ファイル内のレコードを指定された順序にソートしたり、ソート済みのファイルをマージしたりするプログラムです。このユーティリティは頻繁に使用され、メインフレーム ショップで最もよく使用されるアプリケーション プログラムであることがよくあります。最新のソート/マージ プログラムでは、特定のレコードを選択または省略したり、レコードを要約したり、重複を削除したり、レコードを再フォーマットしたり、簡単なレポートを作成したりすることもできます。ソート/マージは非常に重要なので、複数の会社がそれぞれ独自の IBM メインフレーム用ソート/マージ パッケージを販売しています。

IBM のオリジナルの OS/360 ソート/マージ プログラム 360S-SM-023、プログラム名 IERRCO00 (別名 SORT) は、IBM の第 1 世代の直接アクセス ストレージ デバイス(DASD) ^{[d]とテープ (2400) のみをサポートしていました。第 2 世代のディスク ドライブのサポートは、5734-SM1 やその後の 5740-SM1 (} DFSORT、別名 ICEMAN、別名 SORT) などのIBMプログラム製品によって提供されました。

SORT は、スタンドアロン プログラムとして実行されることが多く、通常は DD で識別されるファイルから入力を読み取りSORTIN、ソートされた出力を DD で識別されるファイルに書き込みますSORTOUT。また、COBOL SORT動詞またはPL/I ルーチンの呼び出しを介して別のアプリケーションから呼び出されることも多く、その場合、またはファイルをPLISRTx使用したり、呼び出し元によってソートされるレコードを渡したり、ソートされたレコードを 1 つずつ呼び出し元に返したりすることがあります。 SORTINSORTOUT

SORT の操作は、IBM およびサード パーティのさまざまなソート プログラム間で互換性のある制御ステートメントによって指示されます。orSORTステートメントは、ソート キー(データのソートまたはマージの基準となるフィールド)MERGEを定義します。このステートメントは、各キーの位置、長さ、およびデータ タイプを識別します。ステートメントは、入力ファイル内のレコードの形式と長さを記述します。その他のステートメントを使用すると、ソートに含めるレコードまたはソートから除外するレコードを指定したり、データに対して実行するその他の変換を指定したりできます。 RECORD

キーは、EBCDICまたはASCII文字データ、ゾーンまたはパック10進数、符号付きまたは符号なし固定小数点バイナリ、または16進浮動小数点の任意の組み合わせにすることができます。キーはレコード内のどこにでも配置でき、連続している必要はありません。ソートは、キーによる昇順と降順の任意の組み合わせで指定できます。^[7]

OS/360 ソート プログラム IERRCO00 は、入力データをセクションに分割し、各セクションをメイン メモリでソートし、ソートされたセクションを直接アクセス ストレージ デバイス(DASD) または磁気テープ上の中間データセットに書き込むことによって動作します。最終マージ フェーズでは、セクションをマージしてソートされた出力を生成します。SORT は、セカンダリ ストレージ デバイス間でセクションを分散するためのいくつかの手法の 1 つを使用します。通常、SORT は最適な手法を選択できますが、これはユーザーがオーバーライドできます。^[8 ] SORT には、中間ストレージがテープの場合は 3 つの手法が、ディスクの場合は 2 つの手法が使用できます。^[9]

テープテクニックは次のとおりです。

• バランス型 (BALN) - 中間ストレージに使用できるテープ ドライブの数が多いほど効率的です。
• ポリフェーズ (POLY) - 中間ストレージに使用できるテープ ドライブが少ない場合に使用されます。
• 振動 (OSCL) - より多くのメイン ストレージを使用します。入力データセットのサイズは既知であるか、近似値である必要があります。

ディスク技術は次のとおりです。

• Balanced Direct Access (BALN) - 3 ～ 6 個の中間ストレージ データセットを使用します。
• Crisscross Direct Access (CRCX) - 6 ～ 17 個の中間ストレージ データセットを使用し、Balanced Direct Access 手法の 2 倍のメイン ストレージを必要とします。

OS/360 には、いくつかの構成で使用できるリンケージ エディターしかありませんでした。DFSMSdfp では、ロード モジュールの代替として、またプログラム オブジェクトの唯一のオプションとして、バインダーが追加されました。

リンケージ エディターは、制御カード、オブジェクト モジュール、その他のロード モジュールの組み合わせから、区分データ セット内のロード モジュールを作成し、置き換えます。制御セクション (CSECT) の名前を変更したり置き換えたり、その他のさまざまな機能を実行できます。当初はストレージ要件に応じて複数の構成で使用できましたが、E レベルのリンケージ エディターは使用できなくなり、F レベルのリンケージ エディターは単にリンケージ エディターと呼ばれるようになりました。z /OSでは、リンケージ エディターは互換性のためにのみ存在します。

DFSMSで追加されたバインダーは、リンケージ エディターと同じ機能を実行します。さらに、新しい形式であるプログラム オブジェクトをサポートします。これは、拡張区分データ セット(PDSE) のロード モジュールと同等の機能を持ち、多くの追加機能を備えています。

システム生成(SYSGEN) とカスタマイズ には1 つのアセンブラが必要であったため、通常は1 つのアセンブラが標準でした。

アセンブラ (E) は、非常に小さなマシンで実行される OS/360 を対象としていました。

アセンブラ (F) は、通常の OS/360 インストールを対象としています。

アセンブラ (XF) は OS/VS1 および OS/VS2 のシステム アセンブラであり、アセンブラ (E) および (F) に代わるものでしたが、完全な互換性はありませんでした。IBM はすぐにアセンブラ (XF) を DOS および VM のシステム アセンブラにもしました。

アセンブラ (H) およびアセンブラ (H) バージョン 2 は、アセンブラ E、F、XF のいずれとも完全な互換性はありませんが、一般にそれらよりも高速なプログラム製品アセンブラです。

IBM High Level Assembler (HLASM) は、本質的には Assembler (H) バージョン 2 の新しいバージョンであり、IBM が z/OS および z/VM でサポートする唯一のアセンブラーです。これは、古いアセンブラーのすべてを置き換えますが、完全な互換性はありません。

コンピュータショップで使用される各プログラミング言語には、ソース プログラムをマシン言語オブジェクト モジュールに変換する 1 つ以上のコンパイラが関連付けられています。次に、コンパイラからのオブジェクト モジュールをリンケージ エディター IEWL で処理して、実行可能なロード モジュールを作成する必要があります。

IGYCRCTL はコンパイラーの一般的な例で、現在の IBM Enterprise COBOL for z/OS 製品のコンパイラーです。(これまで、異なる名前の IBM COBOL コンパイラーがいくつかありましたが、ユーザーは現在のバージョンに別名を指定する場合がありますCOBOL。) さまざまな他のプログラミング言語用のコンパイラーも多数あります。

IBM から入手可能なコンパイラには、ALGOL、 COBOL 、FORTRAN、PL/I、RPGなどがあります。

システム変更プログラム(SMP) は、OS/360 および後継機にサービスをインストールするための手段であり、スタンドアロン アセンブリ、リンク エディット、IMAPTFLE ジョブなどを置き換えます。元々はオプション機能でしたが、MVS/SP 以降では必須であり、プログラム製品バージョンである SMP/E は、z/OS などの最近のシステムに含まれています。

• シンクソート
• イージートリーブ

• DFSMSdfp ユーティリティ
• DFSMS カタログ用アクセス方式サービス
• DFSMSdss ストレージ管理ガイド
• MVS ユーティリティ