Create a file on magnetic tape: Difference between revisions
Content added Content deleted
| Line 6: | Line 6: | ||
=={{header|JCL}}== |
=={{header|JCL}}== |
||
<lang JCL> |
<lang JCL> |
||
// EXEC PGM=IEBGENER |
// EXEC PGM=IEBGENER |
||
//* Create a file named "TAPE.FILE" on magnetic tape; "UNIT=TAPE" |
//* Create a file named "TAPE.FILE" on magnetic tape; "UNIT=TAPE" |
||
//* may vary depending on site-specific esoteric name assignment |
//* may vary depending on site-specific esoteric name assignment |
||
//SYSPRINT DD SYSOUT=* |
//SYSPRINT DD SYSOUT=* |
||
| ⚫ | |||
//SYSIN DD DUMMY |
//SYSIN DD DUMMY |
||
| ⚫ | |||
//SYSUT1 DD * |
|||
//SYSUT1 DD * |
|||
DATA TO BE WRITTEN TO TAPE |
DATA TO BE WRITTEN TO TAPE |
||
/* |
|||
/* |
|||
</lang> |
</lang> |
||
Revision as of 18:31, 22 October 2012
You are encouraged to solve this task according to the task description, using any language you may know.
In this task, the job is to create a new file called "TAPE.FILE" of any size on Magnetic Tape
JCL
<lang JCL> // EXEC PGM=IEBGENER //* Create a file named "TAPE.FILE" on magnetic tape; "UNIT=TAPE" //* may vary depending on site-specific esoteric name assignment //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD UNIT=TAPE,DSN=TAPE.FILE,DISP=(,CATLG) //SYSUT1 DD * DATA TO BE WRITTEN TO TAPE /* </lang>