この例では、プログラムの実行前に DD ステートメントまたは export コマンドをコーディングすることで、同じ COBOL プログラムからさまざまなファイルにアクセスすることを示します。
次の SELECT 節を含む COBOL プログラムを考えてみます。
SELECT MASTER ASSIGN TO DA-3330-S-MASTERA
3 つのファイル、MASTER1、MASTER2、および MASTER3 が入力ファイルとなる可能性があるとします。プログラムを実行する前に、プログラム実行を要求するジョブ・ステップに、次の DD ステートメントの 1 つをコーディングするか、または、プログラムを実行する同じシェルから、次の export コマンドの 1 つを発行します。
//MASTERA DD DSNAME=MY.MASTER1,. . . export MASTERA=DSN(MY.MASTER1),. . . //MASTERA DD DSNAME=MY.MASTER2,. . . export MASTERA=DSN(MY.MASTER2),. . . //MASTERA DD DSNAME=MY.MASTER3,. . . export MASTERA=DSN(MY.MASTER3),. . .
したがって、プログラムで MASTER を参照すると、それは現在 DD 名または環境変数名 MASTERA に割り当てられているファイルへの参照になります。
この例では、PATH(path) 形式の export コマンドを使用して HFS の行順次ファイルを参照できないことに注意してください。行順次ファイルでは編成フィールド (S- または AS-) を指定することができないためです。