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

Add RCSIGNON, its map SIGNON and the corresponding copybook and map xml to version control.

Browse Source
This commit is contained in:
Johan Fabry
2025-09-08 09:31:29 -04:00
parent 7ca284b0f7
commit 831943e183
4 changed files with 575 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
Copybook/SIGNON.cpy Normal file
View File

@ -0,0 +1,36 @@
01 LOGONMI .
02 FILLER PIC X(12).
02 USERNL PIC S9(4) COMP-5.
02 USERNF PIC X(1).
02 FILLER REDEFINES USERNF.
04 USERNA PIC X.
02 USERNI PIC X(50).
02 PASSWL PIC S9(4) COMP-5.
02 PASSWF PIC X(1).
02 FILLER REDEFINES PASSWF.
04 PASSWA PIC X.
02 PASSWI PIC X(50).
02 INFMSL PIC S9(4) COMP-5.
02 INFMSF PIC X(1).
02 FILLER REDEFINES INFMSF.
04 INFMSA PIC X.
02 INFMSI PIC X(40).
01 LOGONMO REDEFINES LOGONMI.
02 FILLER PIC X(12).
02 FILLER PIC X(3).
02 USERNO PIC X(50).
02 FILLER PIC X(3).
02 PASSWO PIC X(50).
02 FILLER PIC X(3).
02 INFMSO PIC X(40).
01 SUXESSI .
02 FILLER PIC X(12).
02 BLANKL PIC S9(4) COMP-5.
02 BLANKF PIC X(1).
02 FILLER REDEFINES BLANKF.
04 BLANKA PIC X.
02 BLANKI PIC X(30).
01 SUXESSO REDEFINES SUXESSI.
02 FILLER PIC X(12).
02 FILLER PIC X(3).
02 BLANKO PIC X(30).