IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

SYNCSORT - copy from 2nd byte onwards


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
SOMASEKHAR REDDY
Currently Banned

New User


Joined: 21 Nov 2007
Posts: 14
Location: BAGALORE

PostPosted: Tue Aug 10, 2010 7:23 pm
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Tue Aug 10, 2010 7:29 pm
Reply with quote

Code:
WER230A  INREC    FIELD OUTSIDE RANGE                               
Your input-file is VBA and this error message has some clue!
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Tue Aug 10, 2010 7:30 pm
Reply with quote

The WER230A message has been discussed to death here. Have you followed any of the other topics recommendations?
Back to top
View user's profile Send private message
SOMASEKHAR REDDY
Currently Banned

New User


Joined: 21 Nov 2007
Posts: 14
Location: BAGALORE

PostPosted: Tue Aug 10, 2010 7:39 pm
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Tue Aug 10, 2010 7:43 pm
Reply with quote

Even so, the cause of the error is blatently obvious from the output.
Back to top
View user's profile Send private message
SOMASEKHAR REDDY
Currently Banned

New User


Joined: 21 Nov 2007
Posts: 14
Location: BAGALORE

PostPosted: Tue Aug 10, 2010 7:58 pm
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Tue Aug 10, 2010 8:02 pm
Reply with quote

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
View user's profile Send private message
SOMASEKHAR REDDY
Currently Banned

New User


Joined: 21 Nov 2007
Posts: 14
Location: BAGALORE

PostPosted: Tue Aug 10, 2010 8:06 pm
Reply with quote

FB FORMAT
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Tue Aug 10, 2010 8:16 pm
Reply with quote

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
View user's profile Send private message
SOMASEKHAR REDDY
Currently Banned

New User


Joined: 21 Nov 2007
Posts: 14
Location: BAGALORE

PostPosted: Tue Aug 10, 2010 9:03 pm
Reply with quote

thanks its working
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Tue Aug 10, 2010 9:14 pm
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Wed Aug 11, 2010 8:59 pm
Reply with quote

Glad, I could be of some help.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Compare only first records of the fil... SYNCSORT 7
No new posts Data set Rec-Cnt and Byte-Cnt Testing & Performance 2
No new posts VB to VB copy - Full length reached SYNCSORT 8
No new posts 10 byte RBA conversion DB2 2
No new posts 10 byte RBA conversion -non applicati... JCL & VSAM 1
Search our Forums:

Back to Top