IEBISAM

索引順次データセットの印刷。すっかり 使われなくなったISAMですが、参考までに。

//STEP00  EXEC PGM=IDCAMS
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD *
  DELETE DATASET.NAME.ISAM SCRATCH NONVSAM CAT(UCAT1)
/*
//*--------------------------------------------------------------------
//STEP01  EXEC PGM=IEFBR14,COND=EVEN
//ISAMDD    DD DSN=DATASET.NAME.ISAM,DISP=(NEW,CATLG),
//             UNIT=TST1,
//             SPACE=(CYL,(1,1,1)),
//             DCB=(DSORG=IS,RKP=1,KEYLEN=5,
//             RECFM=FB,LRECL=80,BLKSIZE=3120)
//*--------------------------------------------------------------------
//STEP02  EXEC PGM=IEBDG
//EXDD01    DD DSN=*.STEP01.ISAMDD,DISP=OLD,
//             DCB=*.STEP01.ISAMDD
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD DATA
  DSD    OUTPUT=(EXDD01)
  FD     NAME=FIELD1,LENGTH=5,STARTLOC=1,FORMAT=AL,ACTION=RP
  FD     NAME=FIELD2,LENGTH=75,STARTLOC=6,FORMAT=RA
  CREATE QUANTITY=20,NAME=(FIELD1,FIELD2)
  END
/*
//*--------------------------------------------------------------------
//STEP03  EXEC PGM=IEBISAM,PARM='PRINTL,N'
//SYSPRINT  DD SYSOUT=*
//SYSUT1    DD DSN=*.STEP01.ISAMDD,DISP=SHR
//SYSUT2    DD SYSOUT=*
//*--------------------------------------------------------------------
//STEP90  EXEC PGM=IDCAMS
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD *
  DELETE DATASET.NAME.ISAM SCRATCH NONVSAM CAT(UCAT1)
/*

トップメニューへ