1 //DEFGDG JOB 'JAY MOSELEY',CLASS=A,MSGLEVEL=(1,1),MSGCLASS=A JOB 160
2 //IDCAMS EXEC PGM=IDCAMS,REGION=4096K 00020000
3 //MODEL DD DSN=MVS501.ACH.TRANS,DISP=(NEW,KEEP), 00030000
// UNIT=3350,VOL=SER=MVS501,SPACE=(TRK,0), 00040000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120) 00050000
4 //SYSPRINT DD SYSOUT=A 00060000
5 //SYSIN DD * 00070000
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
IDCAMS SYSTEM SERVICES TIME: 10:46:33 01/09/74 PAGE 1
00080000
/* DELETE GENERATION DATA GROUP, IF IT EXISTS */ 00090000
00100000
DELETE MVS501.ACH.TRANS GENERATIONDATAGROUP 00110000
IDC3012I ENTRY MVS501.ACH.TRANS NOT FOUND IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLAG-6 IDC0551I **ENTRY MVS501.ACH.TRANS NOT DELETED
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8
00120000
/* DEFINE GENERATION DATA GROUP */ 00130000
00140000
DEFINE GENERATIONDATAGROUP ( - 00150000
NAME(MVS501.ACH.TRANS) - 00160000
LIMIT(5) - 00170000
SCRATCH ) 00180000
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
00190000
IF LASTCC = 0 THEN - 00200000
LISTCAT ALL ENTRIES(MVS501.ACH.TRANS) 00210000
GDG BASE ------ MVS501.ACH.TRANS
IN-CAT --- UCMVS501
HISTORY
OWNER-IDENT-------(NULL) CREATION----------74.009
RELEASE----------------2 EXPIRATION--------00.000
ATTRIBUTES
LIMIT------------------5 SCRATCH NOEMPTY
ASSOCIATIONS--------(NULL)
==============================================================================================================
IDCAMS SYSTEM SERVICES TIME: 10:46:33 01/09/74 PAGE 2
THE NUMBER OF ENTRIES PROCESSED WAS:
AIX -------------------0
ALIAS -----------------0
CLUSTER ---------------0
DATA ------------------0
GDG -------------------1
INDEX -----------------0
NONVSAM ---------------0
PAGESPACE -------------0
PATH ------------------0
SPACE -----------------0
USERCATALOG -----------0
TOTAL -----------------1
THE NUMBER OF PROTECTED ENTRIES SUPPRESSED WAS 0
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 8
