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

62
Maps/SIGNON.bms Normal file
View File

@ -0,0 +1,62 @@
SIGNON DFHMSD TYPE=&SYSPARM,MODE=INOUT,TERM=ALL, X
LANG=COBOL,TIOAPFX=YES,STORAGE=AUTO,CTRL=FREEKB
LOGONM DFHMDI SIZE=(024,080), X
LINE=1, X
COLUMN=1
DFHMDF POS=(1,28),LENGTH=40,ATTRB=ASKIP,COLOR=NEUTRAL, X
INITIAL='Signon to DUTAS'
DFHMDF POS=(3,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL, X
INITIAL='WARNING! BY ACCESSING AND USING THIS GOVERNMENX
T COMPUTER SYSTEM, YOU ARE'
DFHMDF POS=(4,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL, X
INITIAL='CONSENTING TO SYSTEM MONITORING FOR LAW ENFORCEX
MENT AND OTHER PURPOSES.'
DFHMDF POS=(5,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL, X
INITIAL='UNAUTHORIZED USE OF, OR ACCESS TO, THIS COMPUTEX
R SYSTEM MAY SUBJECT YOU TO'
DFHMDF POS=(6,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL, X
INITIAL='CRIMINAL PROSECUTION.'
DFHMDF POS=(8,1),LENGTH=70,ATTRB=ASKIP,COLOR=GREEN, X
INITIAL='Type your DCGov email address and password, theX
n press ENTER:'
DFHMDF POS=(10,12),LENGTH=15,ATTRB=ASKIP,COLOR=GREEN, X
INITIAL='Userid . . . .:'
USERN DFHMDF POS=(10,28),LENGTH=50,ATTRB=(UNPROT,IC),COLOR=TURQUOISE,X
INITIAL=' '
DFHMDF POS=(10,79),ATTRB=ASKIP
DFHMDF POS=(11,12),LENGTH=15,ATTRB=ASKIP,COLOR=GREEN, X
INITIAL='Password . . .:'
PASSW DFHMDF POS=(11,28),LENGTH=50,ATTRB=(UNPROT,DRK), X
INITIAL=' '
DFHMDF POS=(11,79),ATTRB=ASKIP
INFMS DFHMDF POS=(15,20),LENGTH=40,COLOR=RED,INITIAL=' '
DFHMDF POS=(15,60),ATTRB=ASKIP
DFHMDF POS=(24,1),LENGTH=70,ATTRB=ASKIP,COLOR=NEUTRAL, X
INITIAL='F3=Exit'
SUXESS DFHMDI SIZE=(024,080), X
LINE=1, X
COLUMN=1
DFHMDF POS=(1,28),LENGTH=40,ATTRB=ASKIP,COLOR=NEUTRAL, X
INITIAL='Signon to DUTAS'
DFHMDF POS=(3,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL, X
INITIAL='WARNING! BY ACCESSING AND USING THIS GOVERNMENX
T COMPUTER SYSTEM, YOU ARE'
DFHMDF POS=(4,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL, X
INITIAL='CONSENTING TO SYSTEM MONITORING FOR LAW ENFORCEX
MENT AND OTHER PURPOSES.'
DFHMDF POS=(5,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL, X
INITIAL='UNAUTHORIZED USE OF, OR ACCESS TO, THIS COMPUTEX
R SYSTEM MAY SUBJECT YOU TO'
DFHMDF POS=(6,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL, X
INITIAL='CRIMINAL PROSECUTION.'
DFHMDF POS=(8,10),LENGTH=60,ATTRB=ASKIP,COLOR=BLUE, X
INITIAL='Logon Success! Please press ENTER:'
BLANK DFHMDF POS=(10,32),LENGTH=30,ATTRB=(UNPROT,IC,DRK), X
INITIAL=' '
DFHMDF POS=(10,64),ATTRB=ASKIP
DFHMDF POS=(24,1),LENGTH=70,ATTRB=ASKIP,COLOR=NEUTRAL, X
INITIAL='F3=Exit'
DFHMSD TYPE=FINAL
END

329
Maps/SIGNON.xml Normal file
View File

@ -0,0 +1,329 @@
<BMSMapset
Name="SIGNON"
Type="&amp;SYSPARM"
Tioapfx="YES"
Lang="COBOL"
Mode="INOUT"
Storage="AUTO"
Term="ALL"
>
<BMSCtrl
FreeKb="TRUE"
/>
<BMSMap
Name="LOGONM"
Heigth="24"
Width="80"
>
<MapLineColumn
Kind="Number"
Number="1"
/>
<MapLineColumn
Kind="Number"
Number="1"
/>
<Fields>
<BMSField
Length="40"
Initial="Signon to DUTAS"
Color="NEUTRAL"
Line="1"
Col="28"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="75"
Initial="WARNING! BY ACCESSING AND USING THIS GOVERNMENT COMPUTER SYSTEM, YOU ARE"
Color="NEUTRAL"
Line="3"
Col="1"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="75"
Initial="CONSENTING TO SYSTEM MONITORING FOR LAW ENFORCEMENT AND OTHER PURPOSES."
Color="NEUTRAL"
Line="4"
Col="1"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="75"
Initial="UNAUTHORIZED USE OF, OR ACCESS TO, THIS COMPUTER SYSTEM MAY SUBJECT YOU TO"
Color="NEUTRAL"
Line="5"
Col="1"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="75"
Initial="CRIMINAL PROSECUTION."
Color="NEUTRAL"
Line="6"
Col="1"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="70"
Initial="Type your DCGov email address and password, then press ENTER:"
Color="GREEN"
Line="8"
Col="1"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="15"
Initial="Userid . . . .:"
Color="GREEN"
Line="10"
Col="12"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Name="USERN"
Length="50"
Initial=" "
Color="TURQUOISE"
Line="10"
Col="28"
ByteLength="53"
>
<BMSFieldAttributes
Protection="UNPROT"
Intensity="NORM"
IC="TRUE"
/>
</BMSField>
<BMSField
Line="10"
Col="79"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="15"
Initial="Password . . .:"
Color="GREEN"
Line="11"
Col="12"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Name="PASSW"
Length="50"
Initial=" "
Line="11"
Col="28"
ByteLength="53"
>
<BMSFieldAttributes
Protection="UNPROT"
Intensity="DRK"
/>
</BMSField>
<BMSField
Line="11"
Col="79"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Name="INFMS"
Length="40"
Initial=" "
Color="RED"
Line="15"
Col="20"
ByteLength="43"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Line="15"
Col="60"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="70"
Initial="F3=Exit"
Color="NEUTRAL"
Line="24"
Col="1"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
</Fields>
</BMSMap>
<BMSMap
Name="SUXESS"
Heigth="24"
Width="80"
>
<MapLineColumn
Kind="Number"
Number="1"
/>
<MapLineColumn
Kind="Number"
Number="1"
/>
<Fields>
<BMSField
Length="40"
Initial="Signon to DUTAS"
Color="NEUTRAL"
Line="1"
Col="28"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="75"
Initial="WARNING! BY ACCESSING AND USING THIS GOVERNMENT COMPUTER SYSTEM, YOU ARE"
Color="NEUTRAL"
Line="3"
Col="1"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="75"
Initial="CONSENTING TO SYSTEM MONITORING FOR LAW ENFORCEMENT AND OTHER PURPOSES."
Color="NEUTRAL"
Line="4"
Col="1"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="75"
Initial="UNAUTHORIZED USE OF, OR ACCESS TO, THIS COMPUTER SYSTEM MAY SUBJECT YOU TO"
Color="NEUTRAL"
Line="5"
Col="1"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="75"
Initial="CRIMINAL PROSECUTION."
Color="NEUTRAL"
Line="6"
Col="1"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="60"
Initial="Logon Success! Please press ENTER:"
Color="BLUE"
Line="8"
Col="10"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Name="BLANK"
Length="30"
Initial=" "
Line="10"
Col="32"
ByteLength="33"
>
<BMSFieldAttributes
Protection="UNPROT"
Intensity="DRK"
IC="TRUE"
/>
</BMSField>
<BMSField
Line="10"
Col="64"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="70"
Initial="F3=Exit"
Color="NEUTRAL"
Line="24"
Col="1"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
</Fields>
</BMSMap>
</BMSMapset>