|
View previous topic :: View next topic
|
| Author |
Message |
SOMASEKHAR REDDY
Currently Banned
New User
Joined: 21 Nov 2007
Posts: 14
Location: BAGALORE
|
|
|
|
In my input file 1st byte is space I want to copy from 2nd byte onwards when I have submitted the below job I get a U0016 abend.....
Input file RECFM is VBA LRECL is 1015.
| Code: |
//STEP0080 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=wwwx2.TEST.MFLOADI,
// DISP=SHR
//SORTOUT DD DSN=wwwx2.TEST.MFLOADI1,
// DISP=(,CATLG,DELETE),...
//SYSIN DD *
SORT FIELDS=COPY
INREC FIELDS=(1:2,1014)
|
please find below spool description
Spool
| Code: |
SYNCSORT LICENSED FOR CPU SERIAL NUMBER 2F792, MODEL 2097 712
SYSIN :
SORT FIELDS=COPY
INREC FIELDS=(1:1,2040)
WER901I **WARNING** SYNCSORT 1.3.2.1 WILL EXPIRE IN 31 DAYS
WER276B SYSDIAG= 377358, 1047533, 1047533, 3042900
WER164B 6,896K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 1,004K BYTES USED
WER146B 20K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=VBA ; LRECL= 1019; BLKSIZE= 27966
WER230A INREC FIELD OUTSIDE RANGE
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE |
|
|
| Back to top |
|
 |
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India
|
|
|
|
| Code: |
| WER230A INREC FIELD OUTSIDE RANGE |
Your input-file is VBA and this error message has some clue! |
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| The WER230A message has been discussed to death here. Have you followed any of the other topics recommendations? |
|
| Back to top |
|
|
SOMASEKHAR REDDY
Currently Banned
New User
Joined: 21 Nov 2007
Posts: 14
Location: BAGALORE
|
|
|
|
SORRY PREVIOUSLY I HAVE PASTED OTHER JOB SPOOL DESCRIPTION NOW PLEASE FIND CORRECT ONLE PLEASE RESOLVE MY QUERY
SORT FIELDS=COPY
INREC FIELDS=(1:2,1014)
WER901I **WARNING** SYNCSORT 1.3.2.1 WILL EXPIRE IN 31 DAYS
WER276B SYSDIAG= 328915, 997153, 997153, 3042900
WER164B 6,896K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 1,004K BYTES USED
WER146B 20K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=VBA ; LRECL= 1019; BLKSIZE= 27966
WER235A INREC RDW NOT INCLUDED
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales
|
|
|
|
| Even so, the cause of the error is blatently obvious from the output. |
|
| Back to top |
|
|
SOMASEKHAR REDDY
Currently Banned
New User
Joined: 21 Nov 2007
Posts: 14
Location: BAGALORE
|
|
|
|
any other way i have to copy from that input file(from2nd byte) to output file
input file vba please give correct one |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India
|
|
|
|
| SOMASEKHAR REDDY wrote: |
| any other way i have to copy from that input file(from2nd byte) to output file |
What RECFM do you expect for the output? |
|
| Back to top |
|
|
SOMASEKHAR REDDY
Currently Banned
New User
Joined: 21 Nov 2007
Posts: 14
Location: BAGALORE
|
|
|
|
| FB FORMAT |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India
|
|
|
|
keeping this in mind
| Quote: |
| copy from that input file(from2nd byte) to output file |
please try this:
| Code: |
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=..VBA.INPUT.FILE
//SORTOUT DD DSN=...FB.OUTPUT.FILE,DISP=(NEW,CATLG),
// UNIT=SYSDA, SPACE=(CYL,?),DCB=(RECFM=FB)
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(6,1015),CONVERT
/* |
|
|
| Back to top |
|
|
SOMASEKHAR REDDY
Currently Banned
New User
Joined: 21 Nov 2007
Posts: 14
Location: BAGALORE
|
|
|
|
| thanks its working |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
| Code: |
| WER901I **WARNING** SYNCSORT 1.3.2.1 WILL EXPIRE IN 31 DAYS |
Suggest someone get busy and renew the license. . .
It gets really ugly when "system software" stops running. . . |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India
|
|
|
|
| Glad, I could be of some help. |
|
| Back to top |
|
|
|
|
