View previous topic :: View next topic
|
Author |
Message |
krisprems
Active Member
Joined: 27 Nov 2006 Posts: 649 Location: India
|
|
|
|
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 |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
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 |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
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 |
|
|
krisprems
Active Member
Joined: 27 Nov 2006 Posts: 649 Location: India
|
|
|
|
William Thompson: Thanks for the pointer.
Thanks Frank
Your explanation was pretty clear to understand the usage of CHANGE.
|
|
Back to top |
|
|
|
|