Astradyne (UK) Ltd

4 Knoll Road, Fleet, Hampshire. GU51 4PR Tel: 01252 400955 Fax:01252 400956 Email: [email protected]

Technical Document
Document No: Document Title: Category: Functional Area: OS/400 Release: 04-01007 Modifying QDSIGNON and Getting the Message Across (Part 3) Hints, Tips & FAQ Operating System v4r3 and above

Document Description: In the previous two articles in this series, we have looked at how the QDSIGNON AS/400 sign-on display can be modified to allow variable messages to be displayed, and provided a simple display program enabling the messages to be maintained. It would be useful, though, if we were able to schedule particular news messages to be displayed on specific days for example, a message that the system will be getting upgraded at the weekend could be scheduled in advance to be displayed for the three days prior to the upgrade taking place. Another useful facility would be setting standard messages during particular system events, for example backup is in progress during the overnight saves. This article introduces a number of commands and programs that can be used to achieve this. SGNP200A Physical File To provide the functionality we need to store the messages that we want to schedule in a separate physical file, and file SGNP200A is provided for this purpose with the following layout:
.....A..........T.Name++++++RLen++TDpB......Functions++++++++++++++++++ A R SGNR200A A Q$TYPE 3 TEXT('MSG TYPE') A Q$FROM 8 0 TEXT('FROM DATE') A Q$TO 8 0 TEXT('TO DATE') A Q$FREQ 1 TEXT('FREQUENCY') A Q$SGN1 78 TEXT('MESSAGE 1') A Q$SGN2 78 TEXT('MESSAGE 2') A Q$SGN3 78 TEXT('MESSAGE 3') A Q$SGN4 78 TEXT('MESSAGE 4') A Q$SGN5 78 TEXT('MESSAGE 5') A Q$SGN6 78 TEXT('MESSAGE 6') ** A K Q$TYPE A K Q$FROM

A A

K Q$TO K Q$FREQ

Field Q$TYPE identifies the type of message (record) in the file and has one of the following three values: +++ Control record this identifies the last Random message used.

ALR Alert Message this identifies notices that are to be scheduled on or between certain dates. RND Random Message this identifies Random messages. These are messages that are just used to provide a daily changing message for those days when there is no scheduled alert. These may be jokes, fascinating facts, quiz questions, etc. The idea is to provide a changing message so that the user gets used to reading the messages on the signon display. Fields Q$FROM and Q$TO hold the from and to dates that an alert message is scheduled for. For the control record these values should be zero, whilst for random messages the values should hold a sequence number, e.g. 1, 2, 3, etc. Field Q$FREQ identifies the frequency, if any, at which messages are recycle. For example, in our shop we display a message about password confidentiality every 30 days and provide a countdown to Christmas as a reminder of how many shopping days are left to buy that must-have gift. The following Frequency codes are defined, but others can be used by a simple modification to program SGNR320: Code Description A B C M Q S Y 0 1 2 3 4 10 day intervals 20 day intervals 30 day intervals Monthly intervals (e.g. 1st of month, last day of month, etc) Quarterly intervals Semi (Half) Yearly intervals Yearly intervals Not to be cycled 7 days interval 14 days interval 21 days interval 28 days interval

Fields Q$SGN1 through Q$SGN6 hold the message to be displayed on the sign-on screen. Note, that we only store six lines while the sign-on display has space for seven. The reason

for this is that the top message line on the sign-on display will be used to show the date, leaving the remaining six lines free for use. Logical file SGNL200A is based on this file and omits all records with a Frequency code of 0. CYCSGNMSG Command Definition The CYCSGNMSG is a simple, no parameter, command front end for running program SGNR320 and cycling the sign-on display messages. SGNR320 Command Processing Program Program SGNR320 is an RPG program that will read through logical file SGNL200A, identifying which alert messages are to be recycled and updating their scheduled dates. The source code for this program is shown below:
FSGNL200AUF E K DISK ****************************************************************** E FRQ 9 36 1 DYS 3 0 E DPM 12 12 2 0 ****************************************************************** I DS I 1 20CC I 3 40YY I 1 40YYYY I 5 60MM I 7 80DD I 1 80DATE I DS I 1 20HRS I 3 40MIN I 5 60SEC I 1 6 SYTIME I 7 8 DY I 9 10 MT I 11 12 YR I 7 12 SYDATE I 1 120TIMSTM I SDS I 199 200 CT ****************************************************************** ** ** Initialise the program work fields... ** C TIME TIMSTM C MOVE DY DD C MOVE MT MM C MOVE CT CC C MOVE YR YY C Z-ADDDATE TODAY 80 ** ** Position to the start of the file... **

B01

B02

C *LOVAL SETLLSGNL200A ** ** Read through the file, processing all records that do not have a ** frequency code of '0' (these are excluded by the Logical File). ** C READ SGNL200A 91 C *IN91 DOWNE*ON ** ** We only need to process records where both the scheduled from a ** scheduled to dates have both passed... ** C TODAY IFGT Q$FROM C TODAY ANDGTQ$TO ** ** Lookup the number of days to be added when rescheduling the message... ** C Z-ADD1 IX 20 C Q$FREQ LOKUPFRQ,IX 92 ** C Z-ADD*ZEROS #DAYS 30 C *IN92 IFEQ *ON C Z-ADDDYS,IX #DAYS C ENDIF ** ** Reschedule the FROM date... ** C Z-ADDQ$FROM #DATE 80 C EXSR EXTDTE C Z-ADD#DATE Q$FROM ** ** Reschedule the TO date... ** C Z-ADDQ$TO #DATE C EXSR EXTDTE C Z-ADD#DATE Q$TO ** C UPDATSGNR200A C ENDIF ** ** Read the next record and close the loop... ** C READ SGNL200A 91 C ENDDO ** ** Exit the program... ** C MOVE *ON *INLR C RETRN ****************************************************************** ** ** EXTDTE - Increase yyyymmdd date by a given number of days ** ******************************************************************

C ** ** ** ** ** C C C ** C C C C C C C C C C C ** ** ** ** ** ** C C C C ** ** ** C ** ** ** ** ** C C C C C ** ** ** ** ** C ** C

EXTDTE BEGSR --------------Add the number of days to the date depending on the value passed Some values have special meanings, e.g. 365 = 1 year, 31 = 1 month, 90 = 3 months, 180 = 6 months... MOVE #DATE DATE SELEC WHEQ 000 Do nothing WHEQ 365 ADD 1 YYYY WHEQ 180 ADD 6 MM WHEQ 90 ADD 3 MM WHEQ 31 ADD 1 MM OTHER ADD #DAYS DD ENDSL

#DAYS #DAYS #DAYS #DAYS #DAYS

------+ ------+

Now the days/months have been added, validate the date and ensure it remains as a valid date... First the month portion of the date... MM DOWGT12 SUB 12 ADD 1 ENDDO --+ --+

MM YYYY

Now the day portion... -----------+ If the #DAYS value was a 'special' then the day should be the closest working day of the new month - e.g. 31/Jan + 3mths becomes 30/Apr and not 1/May... #DAYS IFEQ 31 --------+ #DAYS OREQ 90 #DAYS OREQ 180 #DAYS OREQ 365 Z-ADDDPM,MM DD Otherwise, the date falls in the following month and the month and (possibly) the year should be moved on by 1... (possibly) the year should be moved on by 1... ELSE --------< SUB DPM,MM DD DD IFGT DPM,MM

C ADD 1 MM C MM IFGT 12 --+ C SUB 12 MM C ADD 1 YYYY C ENDIF --+ C ENDIF --------+ C ENDIF -----------+ ** C Z-ADDDATE #DATE ** C ENDSR ****************************************************************** ** A010B020C030D000E000F000G000H000I000 J000K000L000M031N000O000P000Q090R000 S180T000U000V000W000X000Y365Z0000000 100720143021402850006000700080009000 ** 312831303130313130313031

Now we have the mechanism for recycling scheduled messages, we need another mechanism for selecting the appropriate message to be displayed. For this we can use the DFTSGNMSG, Default Sign-on Message. DFTSGNONMSG Command Definition The DFTSGNONMSG command has a single parameter, MODE, which identifies which message is to be displayed on the sign-on display. The source code for the command is shown below:
DFTSGNMSG: CMD PARM PROMPT('Set Default Sign-On Messages') KWD(MODE) TYPE(*CHAR) LEN(10) RSTD(*YES) + DFT(*DEFAULT) VALUES(*RESTORE *BACKUP + *LOCKOUT *DELAYED *DATAMART *DEFAULT) + PROMPT('Sign-on Message Mode')

The default value for the MODE parameter is *DEFAULT which will cause the command processing program to determine whether or not there is a scheduled alert message to be displayed, and if not to pick up the next random message for use. Random messages are automatically rescheduled following use. The remaining allowed values for the MODE parameter have the following meanings: *BACKUP Provides a standard message that the backups are in process and that production applications are unavailable. Provides a standard message that the overnight processing is still in progress.

*DELAYED

*DATAMART Provides a standard message that the datamart extract is still running and that data cubes can still be accessed using the previous days data.

*LOCKOUT

Provides a standard message that users cannot sign on due to system maintenance. This parameter option ties in with a separate LOCKOUT command that was developed to provide a means of preventing users from logging on to the system without a) disabling their profiles and b) closing down the QINTER subsystem. This parameter option will restore the Sign-on Display messages to their original values prior to the *BACKUP, *DELAYED, *DATAMART and *LOCKOUT options being processed. Data areas are used to store the saved message details.

*RESTORE

Additional parameters can be added quite simply by modifying the command definition and the command processing programs SGNC310 and SGNR310. The source code for these two programs is shown below: SGNC310 Command Processing Program
PGM PARM(&MODE) */ TYPE(*CHAR) LEN(10) Restore to Saved Message Backups in Process Lockout Command Enabled Overnight Jobs Delayed Datamart Extract Delayed Default Messages */ */ */ */ */ */

/* 0000 - Variable Declarations... DCL VAR(&MODE)

/* Valid Values: *RESTORE /* *BACKUP /* *LOCKOUT /* *DELAYED /* *DATAMART /* *DEFAULT DCL DCL DCL DCL DCL DCL DCL DCL MONMSG VAR(&SAV001) VAR(&SAV002) VAR(&SAV003) VAR(&SAV004) VAR(&SAV005) VAR(&SAV006) VAR(&SAV007) TYPE(*CHAR) TYPE(*CHAR) TYPE(*CHAR) TYPE(*CHAR) TYPE(*CHAR) TYPE(*CHAR) TYPE(*CHAR)

LEN(78) LEN(78) LEN(78) LEN(78) LEN(78) LEN(78) LEN(78)

VAR(&DATFMT) TYPE(*CHAR) LEN(3) MSGID(CPF0000) */ MSG(&SAV001) MSG(&SAV002) MSG(&SAV003) MSG(&SAV004) MSG(&SAV005) MSG(&SAV006) MSG(&SAV007)

/* 0010 - Initialise Screen with values... RTVMSG RTVMSG RTVMSG RTVMSG RTVMSG RTVMSG RTVMSG RTVSYSVAL MSGID(SGN0001) MSGID(SGN0002) MSGID(SGN0003) MSGID(SGN0004) MSGID(SGN0005) MSGID(SGN0006) MSGID(SGN0007) MSGF(AUKMSGF) MSGF(AUKMSGF) MSGF(AUKMSGF) MSGF(AUKMSGF) MSGF(AUKMSGF) MSGF(AUKMSGF) MSGF(AUKMSGF)

SYSVAL(QDATFMT) RTNVAR(&DATFMT)

/* 0015 - If we are in *DEFAULT mode and the current message is /* one of the ALER messages, then don't change it - simply /* redsiplay the message with the current date... IF IF CHGVAR GOTO ENDDO IF CHGVAR GOTO ENDDO IF CHGVAR GOTO ENDDO IF CHGVAR GOTO ENDDO ENDDO /* 0020 - Store the messages in an array so they can be restored /* later (but not if we are re-issuing an override without /* the original saved message having been restored first... IF IF COND(&MODE *EQ '*DEFAULT') THEN(DO) COND(%SST(&SAV002 8 18) *EQ 'SYSTEM + UNAVAILABLE') THEN(DO) VAR(&MODE) VALUE('*LOCKOUT') CMDLBL(TAG0040)

*/ */ */

COND(%SST(&SAV002 27 13) *EQ 'SYSTEM + BACKUP') THEN(DO) VAR(&MODE) VALUE('*BACKUP') CMDLBL(TAG0040)

COND(%SST(&SAV002 9 9) *EQ 'OVERNIGHT') THEN(DO) VAR(&MODE) VALUE('*DELAYED') CMDLBL(TAG0040)

COND(%SST(&SAV002 8 8) *EQ 'DATAMART') + THEN(DO) VAR(&MODE) VALUE('*DATAMART') CMDLBL(TAG0040)

*/ */ */

COND(&MODE *NE '*RESTORE') THEN(DO) COND((%SST(&SAV002 08 18) *NE 'SYSTEM UNAVAILAB *AND (%SST(&SAV002 27 13) *NE 'SYSTEM BACKUP') *AND (%SST(&SAV002 09 09) *NE 'OVERNIGHT') *AND (%SST(&SAV002 08 08) *NE 'DATAMART')) THEN(DO)

CHGDTAARA CHGDTAARA CHGDTAARA CHGDTAARA CHGDTAARA CHGDTAARA CHGDTAARA ENDDO ENDDO

DTAARA(SGNMSGLIN1) DTAARA(SGNMSGLIN2) DTAARA(SGNMSGLIN3) DTAARA(SGNMSGLIN4) DTAARA(SGNMSGLIN5) DTAARA(SGNMSGLIN6) DTAARA(SGNMSGLIN7)

VALUE(&SAV001) VALUE(&SAV002) VALUE(&SAV003) VALUE(&SAV004) VALUE(&SAV005) VALUE(&SAV006) VALUE(&SAV007)

/* 0030 - If this is a restore then retrieve the data area contents */ /* and store them in the &SAVxxx fields... */ IF RTVDTAARA RTVDTAARA RTVDTAARA RTVDTAARA RTVDTAARA RTVDTAARA RTVDTAARA ENDDO COND(&MODE *EQ '*RESTORE') THEN(DO) DTAARA(SGNMSGLIN1) RTNVAR(&SAV001) DTAARA(SGNMSGLIN2) RTNVAR(&SAV002) DTAARA(SGNMSGLIN3) RTNVAR(&SAV003) DTAARA(SGNMSGLIN4) RTNVAR(&SAV004) DTAARA(SGNMSGLIN5) RTNVAR(&SAV005) DTAARA(SGNMSGLIN6) RTNVAR(&SAV006) DTAARA(SGNMSGLIN7) RTNVAR(&SAV007)

/* 0040 - Call the program to set the message defaults, depending /* on the mode the program was called in... TAG0040: CALL PGM(SGNR310) PARM(&MODE &SAV001 &SAV002 + &SAV003 &SAV004 &SAV005 &SAV006 &SAV007 + &DATFMT)

*/ */

/* 0050 - Update the descriptions... CHGMSGD CHGMSGD CHGMSGD CHGMSGD CHGMSGD CHGMSGD CHGMSGD MSGID(SGN0001) MSGID(SGN0002) MSGID(SGN0003) MSGID(SGN0004) MSGID(SGN0005) MSGID(SGN0006) MSGID(SGN0007) MSGF(AUKMSGF) MSGF(AUKMSGF) MSGF(AUKMSGF) MSGF(AUKMSGF) MSGF(AUKMSGF) MSGF(AUKMSGF) MSGF(AUKMSGF) MSG(&SAV001) MSG(&SAV002) MSG(&SAV003) MSG(&SAV004) MSG(&SAV005) MSG(&SAV006) MSG(&SAV007)

*/

/* 0060 - If we are in *DEFAULT mode then run the process to move /* dates on for recurring messages... IF CALL ENDDO TAG9999: ENDPGM COND(&MODE *EQ '*DEFAULT') THEN(DO) PGM(SGNR320)

*/ */

SGNR320 Command Processing Program

I 3 40MIN I 5 60SEC I 1 6 SYTIME I 7 8 DD I 9 10 MM I 9 100MX I 11 12 YY I 7 12 SYDATE I 1 120TIMSTM I DS I 1 2 CCC I 3 4 YYY I 5 6 MMM I 7 8 DDD I 1 80DATE8 I DS I 5 120LSTRND I 1 78 CTL I SDS I 199 200 CC ** ** Named constants for parameter checking... ** I '*RESTORE' C C$RST I '*BACKUP' C C$BKUP I '*LOCKOUT' C C$LOCK I '*DELAYED' C C$DLYD I '*DATAMART' C C$DATA ****************************************************************** C *ENTRY PLIST C PARM P$MODE 10 C PARM P$MSG1 78 C PARM P$MSG2 78 C PARM P$MSG3 78 C PARM P$MSG4 78 C PARM P$MSG5 78 C PARM P$MSG6 78 C PARM P$MSG7 78 C PARM P$DFMT 3 ** ** Define work fields for Key Lists to the Sign-on Message file... ** C *LIKE DEFN Q$TYPE K$TYPE C *LIKE DEFN Q$FROM K$FROM C *LIKE DEFN Q$TO K$TO C *LIKE DEFN Q$FREQ K$FREQ ** ** Define the key lists for the different types of messages... ** C K$RND KLIST C KFLD K$TYPE C KFLD K$FROM C KFLD K$TO

C ** C C C ** ** ** ** ** C ** ** ** ** ** C C C C C C C C C C C ** C C C C C C C C C C C C C C C C C C C C C C C C C

KFLD K$ALR KLIST KFLD KFLD

K$FREQ

K$TYPE K$FROM

Set up the first and last message to hold the date. Note, the line will only hold the date in *RESTORE mode if the parameter has a plus sign in position 3... TIME TIMSTM

If the date format isn't in DMY (hey, I'm English) then we need to make sure the right values are picked up for the date to be formatted on the message line... SELEC WHEQ 'MDY' MOVE MM MOVE DD MOVE W$002A WHEQ 'YMD' MOVE YY MOVE DD MOVE W$002A OTHER ENDSL MOVEAMTH,MX SELEC WHEQ 01 MOVEADD MOVEACC MOVEAYY WHEQ 02 MOVEADD MOVEACC MOVEAYY WHEQ 03 MOVEADD MOVEACC MOVEAYY WHEQ 04 MOVEADD MOVEACC MOVEAYY WHEQ 05 MOVEADD MOVEACC MOVEAYY WHEQ 06 MOVEADD MOVEACC

P$DFMT

W$002A MM DD W$002A YY DD

P$DFMT

TXT

MX

TXT,32 TXT,44 TXT,46 TXT,32 TXT,44 TXT,46 TXT,33 TXT,43 TXT,45 TXT,33 TXT,43 TXT,45 TXT,34 TXT,42 TXT,44 TXT,34 TXT,42

MX

MX

MX

MX

MX

C MOVEAYY TXT,44 C MX WHEQ 07 C MOVEADD TXT,34 C MOVEACC TXT,42 C MOVEAYY TXT,44 C MX WHEQ 08 C MOVEADD TXT,33 C MOVEACC TXT,43 C MOVEAYY TXT,45 C MX WHEQ 09 C MOVEADD TXT,31 C MOVEACC TXT,45 C MOVEAYY TXT,47 C MX WHEQ 10 C MOVEADD TXT,32 C MOVEACC TXT,44 C MOVEAYY TXT,46 C MX WHEQ 11 C MOVEADD TXT,32 C MOVEACC TXT,44 C MOVEAYY TXT,46 C MX WHEQ 12 C MOVEADD TXT,32 C MOVEACC TXT,44 C MOVEAYY TXT,46 C OTHER C ENDSL ** C MOVEATXT,1 P$MSG1 ** ** Process according to the mode passed... ** C SELEC C P$MODE WHEQ C$RST C EXSR RSTDFT C P$MODE WHEQ C$BKUP C EXSR BACKUP C P$MODE WHEQ C$LOCK C EXSR LCKOUT C P$MODE WHEQ C$DLYD C EXSR DELAYD C P$MODE WHEQ C$DATA C EXSR DTAMRT C OTHER C EXSR NONEWS C ENDSL ** ** Exit the program ** C MOVE *ON *INLR C RETRN C***************************************************************** C** RSTDFT - Restore Default Messages **

C***************************************************************** CSR RSTDFT BEGSR C* CSR MOVEAP$MSG7 TXT,1 CSR TXT,3 IFEQ '+' CSR MOVE P$MSG1 P$MSG7 CSR ENDIF C* CSR ENDSR C***************************************************************** C** BACKUP - Set Backup in Progress Messages ** C***************************************************************** CSR BACKUP BEGSR C* CSR MOVE BUP,1 P$MSG2 CSR MOVE BUP,2 P$MSG3 CSR MOVE BUP,3 P$MSG4 CSR MOVE BUP,4 P$MSG5 CSR MOVE BUP,5 P$MSG6 CSR MOVE P$MSG1 P$MSG7 C* CSR ENDSR C***************************************************************** C** LCKOUT - Set Lockout Message ** C***************************************************************** CSR LCKOUT BEGSR C* CSR MOVE LCK,1 P$MSG2 CSR MOVE LCK,2 P$MSG3 CSR MOVE LCK,3 P$MSG4 CSR MOVE LCK,4 P$MSG5 CSR MOVE LCK,5 P$MSG6 CSR MOVE P$MSG1 P$MSG7 C* CSR ENDSR C***************************************************************** C** DELAYD - Set Overnight Jobs Delayed Message ** C***************************************************************** CSR DELAYD BEGSR C* CSR MOVE DLY,1 P$MSG2 CSR MOVE DLY,2 P$MSG3 CSR MOVE DLY,3 P$MSG4 CSR MOVE DLY,4 P$MSG5 CSR MOVE DLY,5 P$MSG6 CSR MOVE P$MSG1 P$MSG7 C* CSR ENDSR C***************************************************************** C** DTAMRT - Set Datamart Message ** C***************************************************************** CSR DTAMRT BEGSR C*

CSR MOVE DMT,1 P$MSG2 CSR MOVE DMT,2 P$MSG3 CSR MOVE DMT,3 P$MSG4 CSR MOVE DMT,4 P$MSG5 CSR MOVE DMT,5 P$MSG6 CSR MOVE P$MSG1 P$MSG7 C* CSR ENDSR C***************************************************************** C** NONEWS - No News Defined ** C***************************************************************** CSR NONEWS BEGSR C* CSR MOVE *BLANKS P$MSG2 CSR MOVE *BLANKS P$MSG3 CSR MOVE *BLANKS P$MSG4 CSR MOVE *BLANKS P$MSG5 CSR MOVE *BLANKS P$MSG6 CSR MOVE P$MSG1 P$MSG7 C* C* Check the Signon message file to see if there is an Alert messa C* displayed for the current date... C* CSR MOVE 'ALR' K$TYPE CSR MOVE DD DDD CSR MOVE MM MMM CSR MOVE CC CCC CSR MOVE YY YYY CSR Z-ADDDATE8 K$FROM CSR K$ALR SETGTSGNP200A CSR 'ALR' REDPESGNP200A 99 CSR *IN99 IFNE *ON --------+ CSR Q$FROM IFLE DATE8 -----+ CSR Q$TO ANDGEDATE8 C* C* If a record is found then display that message on the C* sign-on display... C* CSR MOVE Q$SGN1 P$MSG2 CSR MOVE Q$SGN2 P$MSG3 CSR MOVE Q$SGN3 P$MSG4 CSR MOVE Q$SGN4 P$MSG5 CSR MOVE Q$SGN5 P$MSG6 CSR Q$SGN6 IFNE ' +++' --+ CSR MOVE Q$SGN6 P$MSG7 CSR ENDIF --+ C* C* Otherwise set the EOF indicator so that we can use the C* next "Random" thoughts/jokes/fact message available... C* CSR ELSE -----< CSR MOVE *ON *IN99 CSR ENDIF -----+

CSR ENDIF --------+ C* C* If the EOF indicator is set then pick up the next available "random C* message... C* CSR *IN99 IFEQ *ON -----+ C* C* First pick up the number of the last Random message C* shown... C* CSR '+++' CHAINSGNP200A 91 CSR MOVE Q$SGN1 CTL C* C* Now pick up the next Random message... C* CSR MOVE 'RND' K$TYPE CSR LSTRND ADD 1 K$FROM CSR Z-ADDK$FROM K$TO CSR MOVE '0' K$FREQ C* CSR K$RND CHAINSGNP200A 91 C* C* If no record was found then recycle from the first one C* again... C* CSR *IN91 IFEQ *ON --+ CSR Z-ADD1 K$FROM CSR Z-ADD1 K$TO CSR K$RND CHAINSGNP200A 91 CSR ENDIF --+ C* C* Update the display with the message picked up... C* CSR MOVE Q$SGN1 P$MSG2 CSR MOVE Q$SGN2 P$MSG3 CSR MOVE Q$SGN3 P$MSG4 CSR MOVE Q$SGN4 P$MSG5 CSR MOVE Q$SGN5 P$MSG6 CSR Q$SGN6 IFNE ' +++' --+ CSR MOVE Q$SGN6 P$MSG7 CSR ENDIF --+ C* C* Now update the last Random message used control C* Record... C* CSR Z-ADDK$FROM LSTRND CSR '+++' CHAINSGNP200A 91 CSR MOVE CTL Q$SGN1 CSR UPDATSGNR200A C* CSR ENDIF -----+ C* CSR ENDSR

C***************************************************************** ** MTH - MONTHLY HEADER (LINE 1 AND LINE 7) ++++++ AS/400 SYSTEM NEWS +++ xx JANUARY, xxxx +++ AS/400 SYSTEM NEWS ++++++ ++++++ AS/400 SYSTEM NEWS +++ xx FEBRUARY xxxx +++ AS/400 SYSTEM NEWS ++++++ +++++++ AS/400 SYSTEM NEWS +++ xx MARCH, xxxx +++ AS/400 SYSTEM NEWS +++++++ +++++++ AS/400 SYSTEM NEWS +++ xx APRIL, xxxx +++ AS/400 SYSTEM NEWS +++++++ ++++++++ AS/400 SYSTEM NEWS +++ xx MAY, xxxx +++ AS/400 SYSTEM NEWS ++++++++ ++++++++ AS/400 SYSTEM NEWS +++ xx JUNE xxxx +++ AS/400 SYSTEM NEWS ++++++++ ++++++++ AS/400 SYSTEM NEWS +++ xx JULY xxxx +++ AS/400 SYSTEM NEWS ++++++++ +++++++ AS/400 SYSTEM NEWS +++ xx AUGUST xxxx +++ AS/400 SYSTEM NEWS +++++++ +++++ AS/400 SYSTEM NEWS +++ xx SEPTEMBER, xxxx +++ AS/400 SYSTEM NEWS ++++++ ++++++ AS/400 SYSTEM NEWS +++ xx OCTOBER, xxxx +++ AS/400 SYSTEM NEWS ++++++ ++++++ AS/400 SYSTEM NEWS +++ xx NOVEMBER xxxx +++ AS/400 SYSTEM NEWS ++++++ ++++++ AS/400 SYSTEM NEWS +++ xx DECEMBER xxxx +++ AS/400 SYSTEM NEWS ++++++ ** BUP - BACKUP MESSAGE DISPLAY *** SYSTEM BACKUPS IN PROGRESS *** Please be aware that the system backups are in progress. As a result, the production application systems are currently not available for use and you should not attempt to access them. *** SYSTEM BACKUPS IN PROGRESS *** ** LCK - LOCKOUT MESSAGES *** SYSTEM UNAVAILABLE *** SYSTEM UNAVAILABLE *** SYSTEM UNAVAILABLE *** Please be aware that the system is currently unavailable for use due to some system maintenance that is taking place. We shall endeavour to return to normal service as soon as possible. Thank you. *** SYSTEM UNAVAILABLE *** SYSTEM UNAVAILABLE *** SYSTEM UNAVAILABLE *** ** DLY - OVERNIGHT JOBS RUNNING LATE *** OVERNIGHT JOBS RUNNING LATE! **** OVERNIGHT JOBS RUNNING LATE! *** Please be aware that the overnight processing had not reached a pre-defined check point at 7:00am (UK) this morning and their may still be some overnight processes waiting to run. IT are aware and are inverstigating the cause. *** OVERNIGHT JOBS RUNNING LATE! **** OVERNIGHT JOBS RUNNING LATE! *** ** DMT - DATAMART MESSAGES *** DATAMART EXTRACT NOT COMPLETE **** DATAMART EXTRACT NOT COMPLETE *** Please be aware that the Datamart extract from the AS/400 did not complete in time for the build process to run on the Datamart server. This means that some of the data shown on the server will not include "yesterdays" sales. *** DATAMART EXTRACT NOT COMPLETE **** DATAMART EXTRACT NOT COMPLETE ***

Save files containing the source and objects shown in this article are available for download from the Astradyne (UK) website at www.astradyne-uk.com. Physical file SGNP200A contained within the save file includes existing alert and random message entries.