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