News
Stay informed about the latest enterprise technology news and product updates.
Tom Westdorp-- code
Tom Westdorp-- code
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