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

63
Copybook/DTSIL082.cpy Normal file
View File

@ -0,0 +1,63 @@
00001 ***** 09/09/98
00002 * DTSIL082
00003 * DTSIL082 OPERATOR ID EDIT/LOOKUP MODULE LINKAGE. LV004
00004 * DTSIL082
00005 ***** DTSIL082
00006 CL**4
00007 10 L082-RESULT-IND PIC X(01). DTSIL082
00008 88 L082-VALID-OP VALUE '1'. DTSIL082
00009 88 L082-NOT-VALID-OP VALUE '8'. DTSIL082
00010 88 L082-FILE-CLOSED VALUE '9'. DTSIL082
00011 CL**4
00012 10 L082-OP-ID PIC X(08). DTSIL082
00013 CL**4
00014 10 L082-DATA-AREA. DTSIL082
00015 15 L082-TYPE PIC X(01). DTSIL082
00016 88 L082-EXTERNAL-88 VALUE 'E'. DTSIL082
00017 88 L082-INTERNAL-88 VALUE 'I'. DTSIL082
00018 CL**4
00019 15 L082-NAME PIC X(32). DTSIL082
00020 CL**4
00021 15 L082-TITLE PIC X(30). DTSIL082
00022 CL**4
00023 15 L082-UNIT-NAME PIC X(30). DTSIL082
00024 CL**4
00025 15 L082-BUREAU-NAME PIC X(30). DTSIL082
00026 CL**4
00027 15 L082-PHONE-NUMBERS. DTSIL082
00028 20 L082-VOICE-1. CL**4
00029 25 L082-VOICE-1-AREA-CD PIC X(03). CL**4
00030 25 L082-VOICE-1-PREFIX PIC X(03). CL**4
00031 25 L082-VOICE-1-SUFFIX PIC X(04). CL**4
00032 25 L082-VOICE-1-EXT PIC X(05). CL**4
00033 20 L082-VOICE-2. CL**4
00034 25 L082-VOICE-2-AREA-CD PIC X(03). CL**4
00035 25 L082-VOICE-2-PREFIX PIC X(03). CL**4
00036 25 L082-VOICE-2-SUFFIX PIC X(04). CL**4
00037 25 L082-VOICE-2-EXT PIC X(05). CL**4
00038 20 L082-FAX. CL**3
00039 25 L082-FAX-AREA-CD PIC X(03). CL**3
00040 25 L082-FAX-PREFIX PIC X(03). CL**3
00041 25 L082-FAX-SUFFIX PIC X(04). CL**3
00042 25 L082-FAX-EXT PIC X(05). CL**3
00043 CL**4
00044 15 L082-EMAIL-ADDRESS PIC X(40). CL**4
00045 CL**4
00046 15 L082-UNIT-ID PIC X(04). DTSIL082
00047 CL**4
00048 15 L082-FLD-REP-ID PIC X(02). DTSIL082
00049 88 L082-NOT-FLD-REP-88 VALUE ' '. DTSIL082
00050 CL**4
00051 15 L082-FLD-DESK-IND PIC X(01). DTSIL082
00052 88 L082-NOT-FLD-DESK-88 VALUE 'N'. DTSIL082
00053 88 L082-IS-FLD-DESK-88 VALUE 'Y'. DTSIL082
00054 CL**4
00055 15 L082-ACCOUNTING-DESK-IND PIC X(01). CL**4
00056 88 L082-NOT-ACCT-DESK-88 VALUE 'N'. CL**4
00057 88 L082-IS-ACCT-DESK-88 VALUE 'Y'. CL**4
00058 CL**4
00059 10 FILLER PIC X(64). CL**4
00060 CL**4
00061 10 L082-MSG-AREA. DTSIL082
00062 15 L082-MSG-ID PIC X(04). DTSIL082
00063 15 L082-MSG-TEXT PIC X(60). DTSIL082