|
View previous topic :: View next topic
|
| Author |
Message |
sreenivasarao sagili
New User
Joined: 26 Aug 2014
Posts: 1
Location: india
|
|
|
|
Dear All,
Below is the insync statement
FUNCTION=FIELDMAP
SEARCHDATA=(005,002,EQ,P'476'),AND,
(043,006,EQ,C'015121')
MOVE=(021,10,ZS,141,10,ZS)
MOVE=(031,5,C,32,3,P)
Could you provide equivelent fileaid statement for above. |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales
|
|
|
|
Perhaps you might care to elaborate on what the existing product is.
Also you DO NOT just turn up and ask for code without showing what efforts you have already made YOURSELF
You also need to explain what is happening in the current process, showing input and output data, RECFM, LRECL and other useful information.
Go away and think about exactly what it is that you need help with and then post it clearly. |
|
| Back to top |
|
|
Ed Goodman
Active Member
Joined: 08 Jun 2011
Posts: 556
Location: USA
|
|
|
|
Checked some old JCL, found these hints:
If statements that are AND'ed
IF=(55,EQ,C'ROLLED IN'),IF=(27,EQ,C'LOG')
MOVE statements have this format:
MOVE=(START POS IN DEST,LENGTH,START POS IN SOURCE)
eg
MOVE=(1,40,12)
$$DD01 COPY IF=(24,EQ,C'*'),MOVE=(1,80,28) |
|
| Back to top |
|
|
|
|
|
