■  IF文サンプル


//STEP1EXECPGM=IDCAMS 
//SYSPRINTDDSYSOUT=* 
//SYSINDD* 
 DELETE FILE.ABC.XYZ PURGE NONVSAM
 IF MAXCC = 8 THEN SET MAXCC = 0
/*    

※上記例は、削除対象ファイル(FILE.ABC.XYZ)が存在しないとき(=リターンコードが8)、JOBのリターンコードをゼロにする例です。

※条件を聞く主語には、MAXCC(最大の条件コード)とLASTCC(直前の条件コード)があります。


BEFORE PAGE

TOP PAGE