MP Batchs, copybooks, jcls, Procs

2025-09-13 10:11:09 -04:00
parent c59b4762c2
commit ece2ee4599
261 changed files with 91380 additions and 11991 deletions
--- a/Batch/GENT350.cob
+++ b/Batch/GENT350.cob
@ -0,0 +1,23 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. GENT350.
+       ENVIRONMENT DIVISION.
+       INPUT-OUTPUT SECTION.
+       FILE-CONTROL.
+           SELECT LBL1OUT ASSIGN TO LBLOUT
+               ORGANIZATION IS SEQUENTIAL.
+
+       DATA DIVISION.
+       FILE SECTION.
+       FD  LBL1OUT
+           RECORDING MODE IS V. 
+       01  OUT-REC.
+          05  WS-DATA  PIC X(350) VALUE ZEROES.
+          05  FILLER   PIC X(3739) VALUE SPACES.
+
+       WORKING-STORAGE SECTION.
+       PROCEDURE DIVISION.
+           OPEN OUTPUT LBL1OUT.
+           MOVE ALL "0" TO WS-DATA.
+           WRITE OUT-REC.
+           CLOSE LBL1OUT.
+           STOP RUN.