Add RCSIGNON, its map SIGNON and the corresponding copybook and map xml to version control.
This commit is contained in:
Johan Fabry
148
CICS/RCSIGNON.cob
Normal file
148
CICS/RCSIGNON.cob
Normal file
@ -0,0 +1,148 @@
|
|||||||
|
IDENTIFICATION DIVISION.
|
||||||
|
PROGRAM-ID. RCSIGNON.
|
||||||
|
ENVIRONMENT DIVISION.
|
||||||
|
CONFIGURATION SECTION.
|
||||||
|
DATA DIVISION.
|
||||||
|
WORKING-STORAGE SECTION.
|
||||||
|
|
||||||
|
01 WS-RESP PIC S9(8) COMP.
|
||||||
|
01 WS-RESP2 PIC S9(8) COMP.
|
||||||
|
01 WS-USER PIC X(56) VALUE SPACES.
|
||||||
|
01 WS-PASS PIC X(50).
|
||||||
|
01 WS-USERID PIC X(8) VALUE SPACES.
|
||||||
|
|
||||||
|
*To generate the xml and copybook of the logon screen
|
||||||
|
* rcbms -GenBasedSymbolicMap -Language=cobol SIGNON.bms
|
||||||
|
COPY SIGNON.
|
||||||
|
|
||||||
|
* COPY DFHBMSCA.
|
||||||
|
* COPY DFHAID.
|
||||||
|
COPY DFHRESP.
|
||||||
|
|
||||||
|
LINKAGE SECTION.
|
||||||
|
01 DFHCOMMAREA.
|
||||||
|
05 LK-DATA PIC X(1).
|
||||||
|
PROCEDURE DIVISION.
|
||||||
|
|
||||||
|
DISPLAY '=== Hello!'.
|
||||||
|
|
||||||
|
IF EIBCALEN = 0
|
||||||
|
EXEC CICS
|
||||||
|
GETMAIN SET(ADDRESS OF DFHCOMMAREA)
|
||||||
|
FLENGTH(LENGTH OF DFHCOMMAREA)
|
||||||
|
END-EXEC
|
||||||
|
DISPLAY '=== Sending Map'
|
||||||
|
MOVE 0 TO LK-DATA
|
||||||
|
PERFORM SEND-MAP
|
||||||
|
END-IF.
|
||||||
|
|
||||||
|
IF LK-DATA = 0
|
||||||
|
DISPLAY '=== Receiving Map'
|
||||||
|
MOVE 1 TO LK-DATA
|
||||||
|
PERFORM REC-MAP
|
||||||
|
END-IF.
|
||||||
|
|
||||||
|
IF LK-DATA = 1
|
||||||
|
DISPLAY '=== New user logged on'
|
||||||
|
MOVE 2 TO LK-DATA
|
||||||
|
PERFORM SHOW-ID
|
||||||
|
END-IF.
|
||||||
|
|
||||||
|
DISPLAY "=== You should never get here! (" LK-DATA ")".
|
||||||
|
GOBACK.
|
||||||
|
|
||||||
|
SEND-MAP.
|
||||||
|
EXEC CICS
|
||||||
|
SEND MAP('LOGONM') MAPSET('SIGNON')
|
||||||
|
ERASE
|
||||||
|
RESP(WS-RESP)
|
||||||
|
RESP2(WS-RESP2)
|
||||||
|
END-EXEC
|
||||||
|
IF WS-RESP NOT = DFHRESP(NORMAL)
|
||||||
|
*Should be replaced with better error-handling
|
||||||
|
DISPLAY '=== SEND FAILED'
|
||||||
|
GOBACK
|
||||||
|
END-IF
|
||||||
|
EXEC CICS
|
||||||
|
RETURN TRANSID('logo')
|
||||||
|
COMMAREA(DFHCOMMAREA)
|
||||||
|
LENGTH(LENGTH OF DFHCOMMAREA)
|
||||||
|
END-EXEC.
|
||||||
|
|
||||||
|
REC-MAP.
|
||||||
|
EXEC CICS
|
||||||
|
RECEIVE MAP('LOGONM') MAPSET('SIGNON')
|
||||||
|
RESP(WS-RESP)
|
||||||
|
RESP2(WS-RESP2)
|
||||||
|
END-EXEC
|
||||||
|
IF WS-RESP NOT = DFHRESP(NORMAL)
|
||||||
|
*Should be replaced with better error-handling
|
||||||
|
DISPLAY '=== RECEIVE FAILED'
|
||||||
|
EXEC CICS RETURN END-EXEC
|
||||||
|
END-IF
|
||||||
|
|
||||||
|
MOVE USERNO TO WS-USER
|
||||||
|
MOVE PASSWO TO WS-PASS
|
||||||
|
* Remove from possible mem dumps
|
||||||
|
MOVE SPACES TO PASSWO
|
||||||
|
|
||||||
|
DISPLAY '=== Signon'
|
||||||
|
|
||||||
|
EXEC CICS SIGNON
|
||||||
|
* USERID('LETMEIN0')
|
||||||
|
USERID(' ')
|
||||||
|
OIDCARD(WS-USER)
|
||||||
|
PHRASE(WS-PASS)
|
||||||
|
PHRASELEN(50)
|
||||||
|
RESP(WS-RESP)
|
||||||
|
RESP2(WS-RESP2)
|
||||||
|
END-EXEC
|
||||||
|
|
||||||
|
* Remove from possible mem dumps.
|
||||||
|
MOVE SPACES TO WS-PASS
|
||||||
|
|
||||||
|
IF WS-RESP = DFHRESP(NORMAL)
|
||||||
|
DISPLAY "=== Signon success!"
|
||||||
|
ELSE
|
||||||
|
*Should be replaced with better error-handling
|
||||||
|
DISPLAY "=== Signon failed!"
|
||||||
|
MOVE ZERO TO LK-DATA
|
||||||
|
|
||||||
|
MOVE 'Login unsuccessful, please try again.'
|
||||||
|
TO INFMSI
|
||||||
|
|
||||||
|
EXEC CICS
|
||||||
|
SEND MAP('LOGONM') MAPSET('SIGNON')
|
||||||
|
ERASE
|
||||||
|
RESP(WS-RESP)
|
||||||
|
RESP2(WS-RESP2)
|
||||||
|
END-EXEC
|
||||||
|
|
||||||
|
EXEC CICS
|
||||||
|
RETURN TRANSID('logo')
|
||||||
|
COMMAREA(DFHCOMMAREA)
|
||||||
|
LENGTH(LENGTH OF DFHCOMMAREA)
|
||||||
|
END-EXEC
|
||||||
|
END-IF
|
||||||
|
|
||||||
|
DISPLAY "=== Switching user"
|
||||||
|
EXEC CICS
|
||||||
|
SEND MAP('SUXESS') MAPSET('SIGNON')
|
||||||
|
ERASE
|
||||||
|
RESP(WS-RESP)
|
||||||
|
RESP2(WS-RESP2)
|
||||||
|
END-EXEC
|
||||||
|
EXEC CICS
|
||||||
|
RETURN TRANSID('DTS')
|
||||||
|
* COMMAREA(DFHCOMMAREA)
|
||||||
|
* LENGTH(LENGTH OF DFHCOMMAREA)
|
||||||
|
END-EXEC.
|
||||||
|
|
||||||
|
SHOW-ID.
|
||||||
|
EXEC CICS ASSIGN USERID(WS-USERID) END-EXEC
|
||||||
|
DISPLAY '=== CICS USERID:' WS-USERID
|
||||||
|
EXEC CICS LINK PROGRAM('DTSCDRV') END-EXEC
|
||||||
|
GOBACK.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
36
Copybook/SIGNON.cpy
Normal file
36
Copybook/SIGNON.cpy
Normal 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).
|
||||||
62
Maps/SIGNON.bms
Normal file
62
Maps/SIGNON.bms
Normal 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
329
Maps/SIGNON.xml
Normal file
@ -0,0 +1,329 @@
|
|||||||
|
<BMSMapset
|
||||||
|
Name="SIGNON"
|
||||||
|
Type="&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>
|
||||||
Reference in New Issue
Block a user