giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MP Batchs, copybooks, jcls, Procs

Browse Source
This commit is contained in:
Manoj Patel
2025-09-13 10:11:09 -04:00
parent c59b4762c2
commit ece2ee4599
261 changed files with 91380 additions and 11991 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Copybook/DOESXLBL.cpy Normal file
View File

@ -0,0 +1,27 @@
00001 ***** 01/31/03
00002 * DOESXLBL
00003 * DOESXLBL XEROX LASER DEFINITIONS PRINTING LABELS LV001
00004 * DOESXLBL
00005 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DOESXLBL
00006 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DOESXLBL
00007 * REFERENCE RFP #**** PROGRAMMER: XXX DOESXLBL
00008 * DOESXLBL
00009 ***** DOESXLBL
00010 ******************************************************************DOESXLBL
00011 * XEROX LASER DEFINITION *DOESXLBL
00012 ******************************************************************DOESXLBL
00013 01 XEROX-CNTL-LINE1. DOESXLBL
00014 05 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DOESXLBL
00015 05 XEROX-JDL PIC X(09) VALUE 'JDL=XMOM,'. DOESXLBL
00016 05 XEROX-JDE PIC X(11) VALUE 'JDE=X2PLBL,'. DOESXLBL
00017 05 XEROX-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DOESXLBL
00018 05 XEROX-BEGIN PIC X(18) VALUE DOESXLBL
00019 'BEGIN=(0.05,0.05),'. DOESXLBL
00020 05 XEROX-TOF PIC X(06) VALUE 'TOF=1,'. DOESXLBL
00021 05 XEROX-BOF PIC X(08) VALUE 'BOF=100,'. DOESXLBL
00022 05 XEROX-LINE-END PIC X(4) VALUE 'END;'. DOESXLBL
00023 01 XEROX-CNTL-LINE2. DOESXLBL
00024 05 FILLER PIC X. DOESXLBL
00025 05 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DOESXLBL
00026 05 XEROX-LINE-END PIC X(4) VALUE 'END;'. DOESXLBL
00027 DOESXLBL