delete contents of file when no records

anand.dale · New User Joined: 29 Jun 2007 Posts: 2 Location: INDIA

I have one file/report with following format:
first 3 lines are for information then records are printed from fourth line:

line 1: Cycle date:mm/dd/yyyy report id:ABC
line 2: name of report
line 3: empid emp name emp dept
line 4: record1 abc test
and so on...

my requirement is if there are no records in file i.e only line 1,2 and 3 are present the same file should be emptied or first three lines to be removed.

expat · Posted: Wed Jul 16, 2008 6:32 pm Post subject:

ICEGENER with the dataset defined to SYSUT2 and use SYSUT1 DD DUMMY

anand.dale · New User Joined: 29 Jun 2007 Posts: 2 Location: INDIA

but how will I check whether fourth record is there or not........if there is no fourth record i can do that

expat · Posted: Wed Jul 16, 2008 7:41 pm Post subject:

Look at the IDCAMS PRINT command using the COUNT parameter and it will become clear grasshopper.

Prasanthhere · Active User Joined: 03 Aug 2005 Posts: 288

PRINT IFILE (DISK1) COUNT(4) shoul be fine

Not tested

expat