Create a file on magnetic tape

From Rosetta Code
Task
Create a file on magnetic tape
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>