LISTDEF が指定された UNLOAD (表)

「Db2® Utilities (ユーティリティー)」パネルで LISTDEF の名前を指定した場合、FM/Db2 では「UNLOAD Utility (Tables) (UNLOAD ユーティリティー (表))」パネルの代替形式が表示され、指定した LISTDEF、および UNLOAD ステートメントのキーワードと対応するいくつかの編集可能なフィールドが示されます。

LISTDEF が指定されている「UNLOAD (Tables) (UNLOAD (表))」用に生成されたサンプル JCL に、LISTDEF が指定されている表オブジェクトをアンロードするための生成済み JCL の例を示します。

図 1. LISTDEF が指定されている「UNLOAD (Tables) (UNLOAD (表))」用に生成されたサンプル JCL

   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help
────────────────────────────────────────────────────────────────────────────────
 EDIT       FMNUSER.SPFTEMP1.CNTL                           Columns 00001 00072
 ****** ***************************** Top of Data ******************************
 000001 //FMNUSERB JOB (IBMGSA),
 000002 //             FMNUSER,MSGCLASS=A,
 000003 //             NOTIFY=FMNUSER,CLASS=A,
 000004 //             MSGLEVEL=(1,1)
 000005 //*
 000006 //         JCLLIB ORDER=(DB2V810.DFA2.PROCLIB)
 000007 //*
 000008 //**********************************************************************
 000009 //*
 000010 //* FM/Db2 GENERATED JOB TO UNLOAD TABLE LIST
 000011 //*
 000012 //**********************************************************************
 000013 //*
 000014 //**********************************************************************
 000015 //* STEP SETPARM: OVERRIDE ANY GLOBAL DATASET SIZING VALUES HERE
 000016 //**********************************************************************
 000017 //SETPARM SET ALLOC='TRK',PRI='1',SEC='1'
 000018 //*
 000019 //**********************************************************************
 000020 //* STEP UNLOAD1: UNLOAD TABLE LIST LDEFNAME1
 000021 //**********************************************************************
 000022 //UNLOAD1  EXEC DSNUPROC,SYSTEM=DFA2,UID='FMNUSER'
 000023 //DSNUPROC.STEPLIB  DD DSN=DB2V810.DFA2.SDSNEXIT,DISP=SHR
 000024 //         DD DSN=DB2.V810.SDSNLOAD,DISP=SHR
 000025 //DSNUPROC.SYSREC00 DD DISP=(NEW,CATLG,DELETE),
 000026 //         UNIT=,SPACE=(&ALLOC,(&PRI,&SEC),RLSE),
 000027 //         DSN=FMNUSER.LDEFNAME.D2601243.SYSREC
 000028 //DSNUPROC.SYSPUNCH DD DISP=(NEW,CATLG,DELETE), UTIL CONTRL DATA
 000029 //         UNIT=,SPACE=(TRK,(1,1),RLSE),
 000030 //         DSN=FMNUSER.LDEFNAME.D2601243.SYSPUNCH
 000031 //DSNUPROC.SYSIN    DD *
 000032 UNLOAD LIST LDEFNAME1
 000033   UNLDDN(SYSREC00)
 000034   NOSUBS
 000035 /*
 ****** **************************** Bottom of Data ****************************

 Command ===>                                                  Scroll ===> PAGE
  F1=Help      F2=Split     F3=Exit      F5=Rfind     F6=Rchange   F7=Up
  F8=Down      F9=Swap     F10=Left     F11=Right    F12=Cancel