0

たとえば、ファイル AAA.BBB.CCC.DDD(0) の 'ABCDEFG' をチェックするには、GDG ファイルの文字列をチェックする必要があります。

YES の場合、このストリング「ABCDEFG」を PDS メンバーの末尾に追加します。

ABD.EFG.HIG(名前)。

両方のファイルが PSD ファイルであれば問題ありませんが、GDG と PDS メンバーに変更している間は動作しませんでした。

私のClistプログラムはgdgファイルを割り当てることができず、メンバーに追加することもできません.SHRとOLDにファイルを割り当てたときに、メンバーを上書きしました. メンバーファイルにMODが効きませんでした。

4

1 に答える 1

1

clist は GDG にアクセスできますが、ファイル名を gdg 相対参照 (0) から完全修飾データセット名に変換する必要があります。この例では、AAA.BBB.CCC.DDD.G1234V00 (G1234V00 は最新バージョンの識別子) としてファイルを参照する必要があります。

通常、これを行うには、データセットに対して LISTCAT コマンドを実行するルーチンを作成し、出力を SYSTRAP してから、完全修飾名を CLIST 変数に解析します。

例：

PROC 0

  /* This illustrates a basic clist method using SYSTRAP */
  /* to extract a fully qualified GDG dataset name       */ 

     CONTROL NOFLUSH NOPROMPT NOLIST NOCONLIST NOSYMLIST NOMSG MAIN 

  /* Target dataset name */
     SET GDG = 'RAPP.RAP000.YQ.TAX.YQINFO.BK'                       

  /* SET SYSTRAP LIMIT and execute IDCAMS LISTC command */
     SET &SYSOUTTRAP = 300                                          
     LISTC ENTRIES(&GDG)                                            

  /* Calculate line number of last entry in LISTC results */
     SET &I = &SYSOUTLINE-21

  /* calculate ending position of GDG name in report */
     SET &L = &LENGTH(&GDG) + 23

  /* extract SYSTRAP data into clist string variable */
     SET &C = &&SYSOUTLINE&I

  /* substring data from SYSTRAP line into clist variable and list */
     SET &D = &SUBSTR(17:&L,&STR(&C))                               
     WRITE &D                                                       
END

出力例...

RAPP.RAP000.YQ.TAX.YQINFO.BK.G8203V00

于 2010-08-28T14:41:04.237 に答える