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
 

 

Need to know the usage of CHANGE in INREC/OUTREC

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Mon Jun 18, 2007 8:00 pm    Post subject: Need to know the usage of CHANGE in INREC/OUTREC
Reply with quote

Hi Frank
Can you please explain the usage of CHANGE and NOMATCH, in
Code:

  INREC FIELDS=(11,1,
         CHANGE=(6,
               C'R',C'READ',
               C'U',C'UPDATE',
               X'FF',C'EMPTY',
               C'A',C'ALTER'),
          NOMATCH=(11,6),
          4X,
          21,1,
             CHANGE=(10,
                 B'.1......',C'VSAM',
                 B'.0......',C'NON-VSAM'))

which i found in the link http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ice1ca20/3.8?ACTION=MATCHES&REQUEST=change,inrec&TYPE=FUZZY&SHELF=ICE1SH20.bks&DT=20060615185603&CASE=&searchTopic=TOPIC&searchText=TEXT&searchIndex=INDEX&rank=RANK&ScrollTOP=FIRSTHIT#FIRSTHIT
or provide a pointer to an self explanative example.
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 18, 2007 8:24 pm    Post subject:
Reply with quote

Like the text stated:
Quote:
See p,m,lookup or %nn,lookup under OUTFIL OUTREC for details

Do a "Find (on this page)" for "p,m,lookup" on OUTFIL Control Statements and stop at the second occurance.......
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Mon Jun 18, 2007 9:05 pm    Post subject:
Reply with quote

Code:

   11,1,
     CHANGE=(6,
         C'R',C'READ',
         C'U',C'UPDATE',
         X'FF',C'EMPTY',
         C'A',C'ALTER'),
     NOMATCH=(11,6),


If input position 11 has 'R', puts 'READ' in output positions 11-16 (padded with blanks on the right).

If 11 has 'U', puts 'UPDATE' in 11-16

If 11 has X'FF', puts 'EMPTY' in 11-16.

If 11 has 'A', puts 'ALTER' in 11-16.

If input position 11 does not have 'R', 'U', X'FF' or 'A', puts input positions 11-16 in output positions 11-16.

Code:
 
     21,1,
        CHANGE=(10,
            B'.1......',C'VSAM',
            B'.0......',C'NON-VSAM')


If input position 21 has bit 1 (X'40') on, puts 'VSAM' in output positions 21-30 (padded with blanks on the right).

If 21 has bit 1 off, puts 'NON-VSAM' in 21-30.
Back to top
View user's profile Send private message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Mon Jun 18, 2007 10:32 pm    Post subject:
Reply with quote

William Thompson: Thanks for the pointer.

Thanks Frank
Your explanation was pretty clear to understand the usage of CHANGE.

icon_smile.gif
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to change 'K' or 'M' use Sort vice_versa DFSORT/ICETOOL 5 Thu May 18, 2017 7:11 am
No new posts Need inputs on Space requirement and... ashek15 IMS DB/DC 0 Sat Apr 01, 2017 8:26 am
No new posts outrec field outside range Danielle.Filteau SYNCSORT 10 Sat Mar 04, 2017 2:37 am
No new posts Fail to change physical VSAM filename... jacobdng CICS 7 Fri Jan 20, 2017 12:36 pm
No new posts SORT- outrec ram_vizag DFSORT/ICETOOL 10 Tue Sep 27, 2016 12:50 am


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