View previous topic :: View next topic
|
Author |
Message |
xsray
New User
Joined: 16 Sep 2008 Posts: 19 Location: illinois
|
|
|
|
I have a GDG base with 4 entries. When I try to test the 3rd entry with SYSDSN, it returns ERROR PROCESSING REQUESTED DATASET, and the same for the 4th.
Code: |
QCPJNT.SPAP.AGENCY.FILE
QCPJNT.SPAP.AGENCY.FILE.G0001V00
QCPJNT.SPAP.AGENCY.FILE.G0002V00
QCPJNT.SPAP.AGENCY.FILE.G0003V00
QCPJNT.SPAP.AGENCY.FILE.G0004V00 |
the first 2 are OK, but then it fails
Code: |
INPUT='QCPJNT.SPAP.AGENCY.FILE.G0001V00'
OK
INPUT='QCPJNT.SPAP.AGENCY.FILE.G0002V00'
OK
INPUT='QCPJNT.SPAP.AGENCY.FILE.G0003V00'
ERROR PROCESSING REQUESTED DATASET
INPUT='QCPJNT.SPAP.AGENCY.FILE.G0004V00'
ERROR PROCESSING REQUESTED DATASET |
I have a loop in REXX to check for the existance of the gdg entries:
Code: |
FORMAT:
DO WHILE GEN < 31
IF GEN < 10 THEN
VDD2 = "'QCP"MODE".SPAP.AGENCY.FILE.G000"GEN"V00'"
IF GEN > 9 THEN
VDD2 = "'QCP"MODE".SPAP.AGENCY.FILE.G00"GEN"V00'"
SAY 'INPUT='VDD2 /* FORMATTED GDG */
X = SYSDSN(VDD2) /* TEST EXISTENCE OF GDG */
SAY X
IF X = 'OK' THEN
DO |
I can't figure out why the first 2 gdg's are OK, and the next 2 gdg's are not
Edited: Please use BBcode when You post some code, that's rather readable...Anuj |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Not on disk?
Archived/Migrated? |
|
Back to top |
|
|
xsray
New User
Joined: 16 Sep 2008 Posts: 19 Location: illinois
|
|
|
|
They are disk and not migrated.
I stepped thru with trace on and all the GDG's returned OK. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
I would imagine that the original run of the job caused the two generations to be recalled and when you ran the job for a second time the two generations had been recalled and were living on DASD rather than migrated.
However, as I may be wrong in my assumption, maybe you had better post the error messages and codes if it happens again. |
|
Back to top |
|
|
xsray
New User
Joined: 16 Sep 2008 Posts: 19 Location: illinois
|
|
|
|
I added a free statement and all seems to work
"EXECIO 0 DISKW INDD (FINIS" /* CLOSE INPUT FILE */
"FREE FI(INDD)"
Thanks for your help. |
|
Back to top |
|
|
parsesource
New User
Joined: 06 Feb 2006 Posts: 97
|
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
Your first post was incomplete as you did not indicated that EXECIO was being called. |
|
Back to top |
|
|
MBabu
Active User
Joined: 03 Aug 2008 Posts: 400 Location: Mumbai
|
|
|
|
opening the file for write (DISKW) will cause you to lose all your data unless the files are allocated DISP=MOD |
|
Back to top |
|
|
|