Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

SYNCSORT - copy from 2nd byte onwards

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: SYNCSORT - copy from 2nd byte onwards
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

Senior Member


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

PostPosted: Tue Aug 10, 2010 7:29 pm    Post subject:
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

Moderator Team Head


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

PostPosted: Tue Aug 10, 2010 7:30 pm    Post subject: Reply to: SYNCSORT
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    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Tue Aug 10, 2010 7:43 pm    Post subject:
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    Post subject:
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

Senior Member


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

PostPosted: Tue Aug 10, 2010 8:02 pm    Post subject:
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    Post subject:
Reply with quote

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

Senior Member


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

PostPosted: Tue Aug 10, 2010 8:16 pm    Post subject:
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    Post subject:
Reply with quote

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

Site Director


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

PostPosted: Tue Aug 10, 2010 9:14 pm    Post subject:
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

Senior Member


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

PostPosted: Wed Aug 11, 2010 8:59 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 3 Fri Dec 02, 2016 9:47 am
No new posts Syncsort - Hard coded Value in output PORYES SYNCSORT 1 Thu Nov 03, 2016 9:23 am
No new posts Single COPY CICS TS datasets and when... Kyle Carroll CICS 2 Tue Oct 11, 2016 9:47 pm
No new posts Syncsort - NULL in Integer field chec... nartcr SYNCSORT 4 Thu Oct 06, 2016 6:47 am
No new posts ICETOOL/SYNCSORT - SYSPRINT output nartcr DFSORT/ICETOOL 17 Wed Oct 05, 2016 10:46 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us