* $$ JOB JNM=IMAGE3,CLASS=P,DISP=D,USER='RC2604 WHB'
* $$ LST CLASS=L,DISP=L
* ** LST LST=00E,CLASS=L,DISP=L
// JOB IMAGE3
* **********************************************************
* * IMAGE3 - READ UPLOADED PC IMAGE FILE AND CREATE A      *
* *          FORMATTED KSDS FILE.                          *
* **********************************************************
/* GOTO STEP3
// EXEC IDCAMS
   DELETE (VSAM.SCANNED.IMAGE.CL)           -
          CLUSTER                           -
          PURGE                             -
          CATALOG (VSAM.TEST.CATALOG)
   DEFINE CLUSTER                           -
          (                                 -
           NAME (VSAM.SCANNED.IMAGE.CL)     -
           FOR (30)                         -
           VOL (VSAM60)                     -
           RECORDS (118000 200)             -
           RECSZ (18 18)                    -
           KEYS (12 0)                      -
           FREESPACE (5 10)                 -
          )                                 -
          DATA                              -
          (                                 -
           NAME (VSAM.SCANNED.IMAGE.DATA) -
          )                                 -
          INDEX                             -
          (                                 -
           NAME (VSAM.SCANNED.IMAGE.INDEX) -
          )                                 -
          CATALOG (VSAM.TEST.CATALOG)
/*
// DLBL TSCAT,'VSAM.TEST.CATALOG',,VSAM
// DLBL VSAMIN,'PC01.PCXFER.VSAM',,VSAM,CAT=OPERCAT
// DLBL VSAMOUT,'VSAM.SCANNED.IMAGE.CL',,VSAM,CAT=TSCAT
// LIBDEF PHASE,SEARCH=TESTLIB.USER
// EXEC IMAGE3,SIZE=(AUTO,128K)
/*
// GOTO $EOJ
// DLBL TSCAT,'VSAM.TEST.CATALOG',,VSAM
// DLBL INFILE,'VSAM.SCANNED.IMAGE.CL',,VSAM,CAT=TSCAT
// EXEC IDCAMS
   LISTCAT ALL  -
       ENTRIES (VSAM.SCANNED.IMAGE.CL) -
       CATALOG(VSAM.TEST.CATALOG)
   PRINT INFILE                             -
         (INFILE)                           -
         CHARACTER                          -
         COUNT   (50)
/*
// EXEC LISTLOG
/*
/&
* $$ EOJ