Article

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    
Related Topics: iSeries skills, VIEW ALL TOPICS

There are Comments. Add yours.

 
TIP: Want to include a code block in your comment? Use <pre> or <code> tags around the desired text. Ex: <code>insert code</code>

REGISTER or login:

Forgot Password?
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
Sort by: OldestNewest

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to: