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
 

 

INREC - SHORT RECORD - Please help

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
anshul_gugnani

New User


Joined: 02 Nov 2009
Posts: 73
Location: Mumbai

PostPosted: Mon Jun 21, 2010 4:13 pm    Post subject: INREC - SHORT RECORD - Please help
Reply with quote

When trying to solve below problem posted by someone using Syncsort:

example:

Input:
ID001.................ID002................ID003AB10....................
ID001.................ID003EF07..............ID004......................
ID001.................ID003CH02..............ID004......................
ID001.................ID002................ID003CB01....................

Output:
ID001.................ID002................ID003CB01....................
ID001.................ID003CH02..............ID004......................
ID001.................ID003EF07..............ID004......................
ID001.................ID002................ID003AB10....................

Problem: In ID003, there is a subkey (two-digit) which I'd like to sort. However, ID003's position is variable because not all IDs are always present, like the 2nd record, where ID002 is omitted.

File is VB and LRECL 29998.

I tried using below sort card -

Code:
INREC PARSE=(%00=(STARTAFT=C'ID003',FIXLEN=4)),   
BUILD=(1,29998,%00)                               
SORT FIELDS=(5,5,CH,A,30001,02,CH,A)               
OUTREC BUILD=(1,29998)             


But I get the following error -
Code:

SORTIN   : RECFM=VB   ; LRECL= 29998; BLKSIZE= 30002           
INREC RECORD LENGTH = 30002                                     
POTENTIALLY INEFFICIENT USE OF INREC                           
OUTREC RECORD LENGTH = 29998                                   
SORTOUT  : RECFM=VB   ; LRECL= 29998; BLKSIZE= 30002           
23,592K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE,
   0 BYTES RESERVE REQUESTED, 23,592K BYTES USED               
G=1068,SEGLEN=23000                                             
INREC  - SHORT RECORD                                           
SYNCSMF  CALLED BY SYNCSORT; RC=0000   


Can someone please help me.
Thanks.
Back to top
View user's profile Send private message

Anuj Dhawan

Senior Member


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

PostPosted: Mon Jun 21, 2010 5:37 pm    Post subject:
Reply with quote

Anshul,

Please check the below links:

http://www.ibmmainframes.com/viewtopic.php?t=48468&highlight=vlshrt
http://www.ibmmainframes.com/viewtopic.php?t=34799&highlight=vlshrt
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


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

PostPosted: Mon Jun 21, 2010 5:39 pm    Post subject:
Reply with quote

Also, in this case your description about the problem gave a good hint. However, it's good if you post the "messgae identifiers" too, when you post the SYSOUT messages.
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Mon Jun 21, 2010 8:12 pm    Post subject:
Reply with quote

anshul_gugnani wrote:
Code:

SORTIN   : RECFM=VB   ; LRECL= 29998; BLKSIZE= 30002           
INREC RECORD LENGTH = 30002                                     
POTENTIALLY INEFFICIENT USE OF INREC                           
OUTREC RECORD LENGTH = 29998                                   
SORTOUT  : RECFM=VB   ; LRECL= 29998; BLKSIZE= 30002           
23,592K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE,
   0 BYTES RESERVE REQUESTED, 23,592K BYTES USED               
G=1068,SEGLEN=23000                                             
INREC  - SHORT RECORD                                           
SYNCSMF  CALLED BY SYNCSORT; RC=0000                           
There are message IDs in front of each of these lines, why did you not bother to include them?
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 Record Not found in AlX but record re... mukun264 COBOL Programming 2 Fri Mar 24, 2017 9:28 am
No new posts Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts IMS DB-How to update a record (a sing... Nic Clouston IMS DB/DC 9 Thu Mar 09, 2017 4:38 pm
No new posts To Merge mutliple records into a sing... anandgbe DFSORT/ICETOOL 6 Wed Feb 22, 2017 8:49 am
No new posts How to update a portion of text in a ... Bill Woodger DFSORT/ICETOOL 25 Wed Nov 09, 2016 9:41 pm


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