|
View previous topic :: View next topic
|
| Author |
Message |
MKP
New User
Joined: 23 Aug 2006
Posts: 12
Location: Chennai
|
|
|
|
Hi All,
Can anyone explain me what is the usage of parameters mentioned in the below code. This code is given for FILE-AID execution.
****** ***************************** Top of Data ******************************
000001 $$DD01 USER FORM=MULTI,PADCHAR=C' ',MOVE=(217,4X'F0'),
000002 MOVE=(3,C'FILE SEPARATOR '),
000003 MOVE=(18,C'X'),WRITE=DD01O,OUT=1,
000004 ABEND=3
****** **************************** Bottom of Data ****************************
Thanks,
MKP |
|
| Back to top |
|
 |
cpuhawg
Active User
Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL
|
|
|
|
The FORM=MULTI parameter allows for reprocessing of an input file after EOF is reached. Processing would continue with the next fundction at the start of the input file.
The PADCHAR=' ' pads the output files with blanks where data is not defined.
The MOVE=(217,4X'F0') puts 'F0F0F0F0' at position 217 of the output record.
The MOVE=(3,C'FILE SEPARATOR') overlays the literal 'FILE SEPARATOR' in position 3 of the output record.
The MOVE=(18,C'X') overlays the literal 'X' at position 18 of the output record.
The WRITE=DD01O will cause the output file to be written to the DD01O output DD statement.
The OUT=1 would indicate that processing stops after 1 record is written to the output file.
The ABEND=3 would cause the FILEAID step to terminate in the event an I/O error occurs. Processing would stop and the program would issue a cond code of 12. |
|
| Back to top |
|
|
cpuhawg
Active User
Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL
|
|
|
|
| Please note that MOVE=(217,4X'F0') places a hex 'F0' in positions 217-220 of the output record. In effect, position 217 of the output record will contain zeroes '0000' which are the equivalent of X'F0F0F0F0' |
|
| Back to top |
|
|
|
|
