MVSFORUMS.com A Community of and for MVS Professionals
View previous topic :: View next topic
Author
Message
hibusalim Beginner Joined: 02 Sep 2004 Posts: 6 Topics: 4
Posted: Thu Sep 02, 2004 10:17 am Post subject: GDG backup using fileaid-problem
Hi,
Am trying to use fileaid to copy. The below is my JCL and the error messages its displaying.
Somehow something is going wrong. Can you please correct me where am wrong. Looking into this since a long time.. and I gave up.
The following is the step which i got the abend.
PS050 EXEC PGM=FILEAID,
COND=((8,LT),(4,EQ))
DD01 DD DSN=abc.xyz(0),
DISP=SHR
OUTPUT1 DD DSN=abc.xyz(+1),
DISP=(NEW,CATLG,DELETE),
UNIT=&TAPE80,
LABEL=(5,SL,EXPDT=99000),
VOL=(,RETAIN,REF=*.PS040.OUTPUT1),
DCB=(RECFM=VB,LRECL=3076,BLKSIZE=0)
SYSPRINT DD SYSOUT=*
SYSLIST DD SYSOUT=*
SYSTOTAL DD SYSOUT=*
STEP010S - ABEND=S000 U0012 REASON=00000000
Back to top
kolusu Site Admin Joined: 26 Nov 2002 Posts: 12372 Topics: 75 Location: San Jose
Posted: Thu Sep 02, 2004 10:25 am Post subject:
Hibusalim,
A couple of clarifications.
You showed a file-aid copy step as PS050 and your abend message you have shown has STEP010S
So the abend is in a different step than the one you are showing.
Also it is a good idea to show us the SYSPRINT.
Kolusu _________________ Kolusu
www.linkedin.com/in/kolusu
Back to top
hibusalim Beginner Joined: 02 Sep 2004 Posts: 6 Topics: 4
Posted: Thu Sep 02, 2004 10:32 am Post subject:
The step was PS050 only...
The abend code int the spool was like this
PS050 JS0A - ABEND=S000 U0012 REASON=00000000 253 .
Can u please help in solving this problem?
Back to top
kolusu Site Admin Joined: 26 Nov 2002 Posts: 12372 Topics: 75 Location: San Jose
Posted: Thu Sep 02, 2004 11:16 am Post subject:
hibusalim ,
As I mentioned earlier, Please print your sysprint listing from the step _________________ Kolusu
www.linkedin.com/in/kolusu
Back to top
hibusalim Beginner Joined: 02 Sep 2004 Posts: 6 Topics: 4
Posted: Thu Sep 02, 2004 11:58 pm Post subject:
The jcl step is mentione below..This is the step which got abended.
PS050 EXEC PGM=FILEAID,
COND=((8,LT),(4,EQ))
DD01 DD DSN=test.SB123.FDBRICC(0),
DISP=SHR
OUTPUT1 DD DSN=test.123.FDBRICC(+1),
DISP=(NEW,CATLG,DELETE),
UNIT=&TAPE80,
LABEL=(5,SL,EXPDT=99000),
VOL=(,RETAIN,REF=*.PS040.OUTPUT1),
DCB=(RECFM=VB,LRECL=3076,BLKSIZE=0)
$$DD01 USER WRITE=(OUTPUT1)
SYSPRINT DD SYSOUT=*
SYSLIST DD SYSOUT=*
SYSTOTAL DD SYSOUT=*
The sysprint of the above step is given below ..
214-08,IFG0202F,testBK03,PS050,OUTPUT1,0420,319377,P
testBK03 PS050 JS0A - ABEND=S000 U0012 REASON=000000
TIME=13.38.48
K 0519,806836,PVT,testBK03,PS050
JOBNAME=testBK03,STPROC= ,STSTEP= ,AUT
testBK03 STEP JS0A PS050 CODE = U0012 REASON=00000000 253
DD01 DSN=test.SB123.FDBRICC.G0070V00 OPENED AS PS,
RECFM=VB,LRECL=3076,BLKSIZE=32760,VOL=801894
$$DD01 USER WRITE=(OUTPUT1)
OUTPUT1 DSN=test.123.FDBRICC.G0001V00 OPENED AS PS,
RECFM=VB,LRECL=3076,BLKSIZE=32760
6,072,816 RECORDS WERE READ FROM 801894 DSN=test.SB123.FDBRICC.G0070V00
6,219,840 RECORDS WERE READ FROM 806526 DSN=test.SB123.FDBRICC.G0070V00
6,478,368 RECORDS WERE READ FROM 807393 DSN=test.SB123.FDBRICC.G0070V00
ER339-ABEND 214 WAS ENCOUNTERED ON test.123.FDBRICC.G0001V00
ABOVE FUNCTION ENDED ON ABOVE I/O ERROR
RECORDS-READ=19611217,COPIED=19611216
19,611,216 RECORDS WRITTEN TO OUTPUT1-test.123.FDBRICC.G0001V00
VOL=316483,328647,324138,331034,319377
Back to top
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum