PGM
DCL VAR(&USER ) TYPE(*CHAR) LEN( 10 )
DCL VAR(&DATA ) TYPE(*CHAR) LEN(150 )
DCL VAR(&BIN ) TYPE(*CHAR) LEN( 4 ) +
VALUE(X'00000096') /* Len Return Data (hex) */
DCL VAR(&CEN ) TYPE(*CHAR) LEN( 1 )
DCL VAR(&YY ) TYPE(*CHAR) LEN( 2 )
DCL VAR(&MM ) TYPE(*CHAR) LEN( 2 )
DCL VAR(&DD ) TYPE(*CHAR) LEN( 2 )
DCL VAR(&HH ) TYPE(*CHAR) LEN( 2 )
DCL VAR(&M ) TYPE(*CHAR) LEN( 2 )
DCL VAR(&SS ) TYPE(*CHAR) LEN( 2 )
DCL VAR(&FMT ) TYPE(*CHAR) LEN( 8 ) +
VALUE('JOBI0400') /* Format for API */
DCL VAR(&JOB ) TYPE(*CHAR) LEN( 26 ) +
VALUE('SCPF QSYS 000000') /* SCPF job */
DCL VAR(&JOBI ) TYPE(*CHAR) LEN( 16 )
DCL VAR(&MSGTXT ) TYPE(*CHAR) LEN( 40 )
DCL VAR(&MSGDTA ) TYPE(*CHAR) LEN( 80 )
DCL VAR(&BLU ) TYPE(*CHAR) LEN( 1 ) VALUE(X'3A')
DCL VAR(&WHT ) TYPE(*CHAR) LEN( 1 ) VALUE(X'22')
CALL PGM(QUSRJOBI) PARM(&DATA &BIN &FMT &JOB +
&JOBI)
CHGVAR VAR(&CEN) VALUE(%SST(&DATA 63 1))
CHGVAR VAR(&YY ) VALUE(%SST(&DATA 64 2))
CHGVAR VAR(&MM ) VALUE(%SST(&DATA 66 2))
CHGVAR VAR(&DD ) VALUE(%SST(&DATA 68 2))
CHGVAR VAR(&HH ) VALUE(%SST(&DATA 70 2))
CHGVAR VAR(&M ) VALUE(%SST(&DATA 72 2))
CHGVAR VAR(&SS ) VALUE(%SST(&DATA 74 2))
CHGVAR VAR(&MSGTXT) VALUE(&BLU *CAT 'System started +
' *CAT &WHT *CAT &MM *CAT '/' *CAT &DD +
*CAT '/' *CAT &YY *CAT &BLU *CAT '@' *CAT +
&WHT *CAT &HH *CAT ':' *CAT &M *CAT ':' +
*CAT &SS)
CHGMSGD MSGID(MSG0005) MSGF(*LIBL/QDSIGNON) +
MSG(&MSGTXT)
ENDCLPGM: ENDPGM
Display Message Descriptions
System: DV400
Message file: QDSIGNON Library: DV400
Position to . . . . . . . Message ID
Type options, press Enter.
5=Display details 6=Print
Opt Message ID Severity Message Text
MSG0001 0 Welcome to Station Casinos, Inc.
MSG0003 0 Development AS/400e Model
MSG0004 0 IBM OS/400v5r1
MSG0005 0 System started 06/13/02@20:09:38
MSG0006 0
MSG0011 0
MSG0012 0
MSG0013 0 T h a t i s j u s t n o t g o n n a h a p p e n . . .
MSG0014 0
MSG0015 0
MSG0016 0
MSG0021 0 If you encounter any technical difficulties
MSG0022 0 using this system, please contact:
MSG0023 0 The Solution Center at(702) 221-6660
MSG0024 0
MSG0025 0