//ABLMSCA   JOB (ABLMSC,B095SC),'10MIS-BLAKE X3659',
//        CLASS=1,MSGCLASS=T,NOTIFY=ABLMSC
//*                                                                     00000015
//STEP1    EXEC PGM=IDCAMS                                              00050000
//SYSPRINT DD SYSOUT=*                                                  00060000
//SYSIN    DD *                                                         00070000
 ALTER J231SC.FDAT.BOOK     LIM(40)
 ALTER J231SC.FDAT.COL      LIM(40)
 ALTER J231SC.FDAT.REG      LIM(40)
 ALTER J231SC.FDAT.LINE     LIM(40)
 ALTER J231SC.FDAT.PRIME    LIM(40)
 ALTER J231SC.FDAT.RPT      LIM(40)
 ALTER J231SC.FDAT.ORG      LIM(40)
 ALTER J231SC.FDAT.MNEMONIC LIM(40)
 ALTER J231SC.FDAT.ORGF     LIM(40)
//*
//
   DEFINE GDG (NAME(J231SC.FDAT.FCST.BOOK ) LIM(3) SCR)
 ALTER J083SC.@WKLY@.VSAM74 LIM(4)
   DELETE (ABLMSC.J231SC.FDAT.TEST)
