Hi,
 
here is our job to change some system catalog messages, especially
 
* the logon prompts to ??? for group pw,
* to ?? for account pw,
* to ? for user pw,
* and the operator prompts to show the system names.
 
This job runs also on MPE 4.0 ... and GLOCALID is only a parm set
on each CPU in those days MPE does not know the HPCPUNAME.
Enjoy it ... or skip it !
 
Best regards, Andreas S.
 
::setquestion         } for VESOFT's STREAMX to make sure that the job
::setbraces            } may run ....
!job catalogj,manager.sys,pub;outclass=,1
!
!setjcw glocalid 0
!xeq glocalid.xecmd.sys
!
!setvar sysname "??????"
!
!if glocalid = 2 then
!   setvar sysname "XENBH2"
!elseif glocalid = 4 then
!   setvar sysname "XENBH4"
!elseif glocalid = 5 then
!   setvar sysname "XENBH5"
!elseif glocalid = 7 then
!   setvar sysname "XENBH7"
!elseif glocalid = 8 then
!   setvar sysname "XENBH8"
!elseif glocalid = 21 then
!   setvar sysname "XEBHH1"
!elseif glocalid = 22 then
!   setvar sysname "XEBHH2"
!endif
!
!continue
!purge catwork
!build catwork;rec=-80,,f,ascii
!file cw=catwork,old
!
!echo T CATORIG >*cw
!echo F FIRST;F @ENTER GROUP (!) PASSWORD:@ >>*cw
!echo C @ENTER GROUP (!) PASSWORD:@ TO @???@ IN * >>*cw
!echo C @ENTER ACCOUNT (!) PASSWORD:@ TO @??@ IN *+1 >>*cw
!echo F FIRST;F @ENTER USER (!) PASSWORD:@ >>*cw
!echo C @ENTER USER (!) PASSWORD:@ TO @?@ IN * >>*cw
!echo F FIRST;F @CIERR 553@ >>*cw
!echo C 5/72 TO @*Invalid*@ IN * >>*cw
!echo F @CIERR 1402@ >>*cw
!echo C 6/72 TO @*Invalid*@ IN * >>*cw
!echo F @CIERR 1424@ >>*cw
!echo C 6/72 TO @*Invalid*@ IN * >>*cw
!echo F @CIERR 1426@ >>*cw
!echo C 6/72 TO @*Invalid*@ IN * >>*cw
!echo F @CIERR 1427@ >>*cw
!echo C 6/72 TO @*Invalid*@ IN * >>*cw
!echo F @CIERR 1436@ >>*cw
!echo C 6/72 TO @*Invalid*@ IN * >>*cw
!echo F @CIERR 1437@ >>*cw
!echo C 6/72 TO @*Invalid*@ IN * >>*cw
!echo F @CIERR 1438@ >>*cw
!echo C 6/72 TO @*Invalid*@ IN * >>*cw
!echo F @CIERR 1439@ >>*cw
!echo C 6/72 TO @*Invalid*@ IN * >>*cw
!echo F @CIERR 1441@ >>*cw
!echo C 6/72 TO @*Invalid*@ IN * >>*cw
!echo F @CIERR 1519@ >>*cw
!echo C 6/72 TO @*Invalid* &@ IN *-1 >>*cw
!echo F @CIERR 3084@ >>*cw
!echo C 6/72 TO @*Invalid*@ IN * >>*cw
!echo F @CIERR 6057@ >>*cw
!echo C 6/72 TO @*Invalid*@ IN * >>*cw
!echo F @CIERR 10130@ >>*cw
!echo C 7/72 TO @*Invalid*@ IN * >>*cw
!echo F FIRST;F @8 FROM OPERATOR: !@ >>*cw
!echo C @8 FROM OPERATOR: !@ TO @8FROM OPERATOR (~sysnam~): !@ IN * >>*cw
!echo C @0 OPERATOR WARNING: !@ &
!TO @0 OPERATOR WARNING (~sysnam~): !@ IN *+1 >>*cw
!echo F @Enter group password:@ >>*cw
!echo C @Enter group password:@ TO @???@ IN * >>*cw
!echo C @Enter account password:@ TO @??@ IN *+1 >>*cw
!echo C @Enter user password:@ TO @?@ IN *+1 >>*cw
!
!echo F @3 FROM/!/!@ >>*cw
!echo C @3 FROM/!/!@ TO @3 FROM (~sysnam~)/!/!@ IN * >>*cw
!echo K CATNEW >>*cw
!echo E >>*cw
!
!continue
!purge catwork1
!setjcw cierror 0
!run tdp.pub;info='t catwork;c "~sysnam~" to "!sysname" in all;&
!k catwork1;e'
!copy catalog,catorig;yes
!continue
!purge catnew
!run editor.pub.sys <catwork1
!purge catwork
!purge catwork1
!file input=catnew
!run makecat.pub.sys,build
!
!eoj
[7] XEBHH2: