インポート成功後のユーザー出口

メインフレームからのメンバーのインポートが正常に終わるたびに、ユーザー出口が存在する場合はその出口が呼び出されます。このユーザー出口には次の 3 つのパラメーター アドレスが渡されます。

• インポートで作成されたワークステーション ファイルの完全修飾名を格納した 256 バイトの領域
• インポートで使用されたメインフレームのデータ セット名またはパラメーターを格納した 160 バイトの領域
• インポートで使用された 16 バイトのメインフレーム メンバー名と、ADD (新しいメンバーのインポートの場合) または REP (置換メンバーのインポートの場合) が格納された 3 バイトのフィールドを含む、19 バイトの領域

必要な場合は、COBOL で独自のユーザー出口を作成することもできます。プログラムの名前は MFMONIMP にする必要があります。

IDENTIFICATION DIVISION.
PROGRAM-ID. MFMONIMP.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER.    IBM-PC.
OBJECT-COMPUTER.    IBM-PC.
DATA DIVISION.
LINKAGE SECTION.
01 P-WORKSTATION    PIC X(256).
01 P-DATASETNAME    PIC X(160).
01 P-MEMBERAREA.
   05 P-MEMBERNAME  PIC X(16).
   05 P-MEMBERFLAG  PIC X(3).
PROCEDURE DIVISION USING P-WORKSTATION P-DATASETNAME
                         P-MEMBERAREA.
*> EXECUTE CODE HERE
   GOBACK.