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(ⅅ         ) 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(ⅅ ) 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 ⅅ +
                          *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    

Start the conversation

Send me notifications when other members comment.

By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Please create a username to comment.

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close