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

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Copybook/DOESILBL.cpy Normal file
View File

@ -0,0 +1,31 @@
00001 ***** 11/28/05
00002 * DOESILBL
00003 * DOESILBL LABEL REPORT RECORD. LV003
00004 * DOESILBL
00005 * DOESILBL
00006 * 02/15/2001 ADDED FOR DC. ZL1 DOESILBL
00007 * DOESILBL
00008 ***** DOESILBL
00009 * CL**2
00010 * 09/29/2004 MODIFIED FOR 45 CHARACTER LABEL CL**2
00011 * CL**2
00012 * LVL 2 MODIFICATIONS CL**2
00013 ***** REW CL**2
00014 DOESILBL
00015 10 ILBL-LENGTH PIC S9(04) COMP. DOESILBL
00016 DOESILBL
00017 10 ILBL-SORT-AREA. DOESILBL
00018 15 ILBL-REC-TYPE PIC X(03) VALUE 'LBL'. DOESILBL
00019 15 ILBL-APPLICATION-ID PIC X(02). DOESILBL
00020 88 ILBL-APP-TAX-88 VALUE '01'. DOESILBL
00021 88 ILBL-APP-DOCS-88 VALUE '02'. DOESILBL
00022 88 ILBL-APP-JOB-SRVC VALUE '03'. DOESILBL
00023 88 ILBL-APP-OTHER VALUE '04'. DOESILBL
00024 DOESILBL
00025 DOESILBL
00026 DOESILBL
00027 10 ILBL-DATA-AREA. DOESILBL
00028 15 ILBL-FMT-LINE OCCURS 8 TIMES INDEXED BY DOESILBL
00029 ILBL-FMT-IDX DOESILBL
00030 * PIC X(40). CL**3
00031 PIC X(45). CL**2