Tom Westdorp-- code

02 Jul 2002 |

Digg This!     StumbleUpon     Del.icio.us

 
 
             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 Model720                      
       MSG0004        0     IBM OS/400v5r1                                    
       MSG0005        0     System started 06/13/02 ((Content component not found.)) :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    

Digg This!     StumbleUpon     Del.icio.us

RELATED RESOURCES 2020software.com, trial software downloads for accounting software, ERP software, CRM software and business software systems Search Bitpipe.com for the latest white papers and business webcasts Whatis.com, the online computer dictionary