|
View previous topic :: View next topic
|
| Author |
Message |
jaffarhussain
New User
Joined: 26 Nov 2010
Posts: 30
Location: Hyderabad
|
|
|
|
i have the follwing attached code which I am trying to convert from fb to VB.
I am getting abend S000 U0016 .
Please help met o solve this problem
Attachment deleted. Do not post screen shots. |
|
| Back to top |
|
 |
Arun Raj
Moderator
Joined: 17 Oct 2006
Posts: 2481
Location: @my desk
|
|
|
|
Jaffar Hussain,
You're NOT supposed to post images here. Not everybody can access your attachments. Learn to use 'Code' Tags instead.
For your question, you fill find numerous examples here to convert FB to VB and vice-versa. |
|
| Back to top |
|
|
jaffarhussain
New User
Joined: 26 Nov 2010
Posts: 30
Location: Hyderabad
|
|
|
|
| Please delete the post as I am not able to do so and also share the link for the solution |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
1) It was no good showing us the input, it is the OUTPUT that will help.
2) For a solution, there is a search button at the top of each page. If you seriously can not find a solution using that, post again. |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
| Back to top |
|
|
jaffarhussain
New User
Joined: 26 Nov 2010
Posts: 30
Location: Hyderabad
|
|
|
|
In those links where you all posted . I dint understand as it was not with complete info.I am posting the code snippet.
//abc JOB (T,73E),JAFFAR,CLASS=6,MSGCLASS=X,NOTIFY=abc
//DELETE EXEC PGM=IEFBR14
//DD1 DD DSN=AbC.EMPDATA.VB,DISP=(MOD,DELETE)
//STEP01 EXEC PGM=SORT
//SORTIN DD DSN=AbC.EMPLOYEE.DATA,DISP=SHR
//SORTOUT DD DSN=AbC.EMPDATA.VB,
// UNIT=SYSDA,DISP=(NEW,CATLG),DATACLAS=MB050E,
// DCB=(LRECL=80,BLKSIZE=800,RECFM=VB)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OUTFIL FNAMES=SORTIN,FTOV
OUTFIL FNAMES=SORTOUT,FTOV,BUILD=(1,10,C'=',21,10)
/*
Please tell me whats wrong in the program |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
What happens when you run this?
You need to post the diagnostic or abend information including message ids.
Why would you specify OUTFIL for the SORTIN dataset. . .  |
|
| Back to top |
|
|
jaffarhussain
New User
Joined: 26 Nov 2010
Posts: 30
Location: Hyderabad
|
|
|
|
I got the abend code S000 U0016.
SORT STATEMENT : STATEMENT NOT FOUND
SYNCSMF CALLED BY SYNCSORT; RC=0000 |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
You will get faster/better help when you follow the directions. . .
There is a reason you did not include the message ids?
| Quote: |
| SORT STATEMENT : STATEMENT NOT FOUND |
Even without the message id, this should be rather obvious - there is no SORT statement in the SYSIN . . .
And in case it did not register the first time - you probably do not want this:
| Code: |
| OUTFIL FNAMES=SORTIN,FTOV |
|
|
| Back to top |
|
|
Guest
|
|
|
|
Hi,
Isnt this statement required:
Kindly correct me if I am wrong |
|
| Back to top |
|
|
jaffarhussain
New User
Joined: 26 Nov 2010
Posts: 30
Location: Hyderabad
|
|
|
|
//abc58 JOB (T,73E),JAFFAR,CLASS=6,MSGCLASS=X,NOTIFY=abc58
//DELETE EXEC PGM=IEFBR14
//DD1 DD DSN=AbC.EMPDATA.VB,DISP=(MOD,DELETE)
//STEP01 EXEC PGM=SORT
//SORTIN DD DSN=AbC.EMPLOYEE.DATA,DISP=SHR
//SORTOUT DD DSN=AbC.EMPDATA.VB,
// UNIT=SYSDA,DISP=(NEW,CATLG),DATACLAS=MB050E,
// DCB=(LRECL=84,BLKSIZE=800,RECFM=VB)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=SORTOUT,FTOV
/*
This code ran sucessfully and got results, Thanks all for the support. |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
Glad to hear that. 
Please learn to use BBcode. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Good to hear it is working - thank you for letting us know
d |
|
| Back to top |
|
|
|
|
