added JCL for tape handling sample

samanL33T · May 17, 2017 · 3fcccde · 3fcccde
1 parent 86f99cf
commit 3fcccde
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/.recv390.c.swp b/.recv390.c.swp
diff --git a/TAPEJCL b/TAPEJCL
@@ -0,0 +1,11 @@
+//HERC01T JOB (01),'COPY TO TAPE',CLASS=A,MSGCLASS=H                    00000102
+//COPY   EXEC PGM=IEBCOPY,REGION=562K                                   00000200
+//SYSPRINT DD SYSOUT=*                                                  00000300
+//TAPE     DD UNIT=TAPE,DISP=NEW,DSN=SYS1.MACLIB,                       00000400
+//            VOL=SER=HECLBL,LABEL=(,SL)                                00000500
+//PDS      DD DSN=SYS1.MACLIB,,DISP=SHR                                 00000604
+//SYSUT3   DD UNIT=SYSDA,SPACE=(80,(60,45)),DISP=(NEW,DELETE)           00000700
+//SYSIN    DD *                                                         00000800
+  COPY INDD=TAPE,OUTDD=PDS                                              00000900
+/*                                                                      00001000
+//                                                                      00001100