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

2025-09-08 09:31:29 -04:00
parent 7ca284b0f7
commit 831943e183
4 changed files with 575 additions and 0 deletions
--- a/Maps/SIGNON.bms
+++ b/Maps/SIGNON.bms
@ -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