midrange.com code scratchpad
Name:
API QSPROUTQ
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
01/24/2012 02:15:48 pm
IP:
Logged
Description:
simple example of using the QSPROUTQ to get remote writer details
Code:
  1.              PGM                                                       
  2.              DCL        VAR(&O) TYPE(*CHAR) LEN(1000)                  
  3.              DCL        VAR(&OBJ) TYPE(*CHAR) LEN(20)                  
  4.              DCL        VAR(&D) TYPE(*CHAR) LEN(8) VALUE(X'000003E8')  
  5.              DCL        VAR(&IP) TYPE(*CHAR) LEN(8) VALUE(X'00000002') 
  6.              DCLF       FILE(QADSPOBJ)                                 
  7.              DLTF       FILE(QTEMP/OUTQS)                              
  8.              MONMSG     MSGID(CPF0000)                                 
  9.              DSPOBJD    OBJ(*ALL/*ALL) OBJTYPE(*OUTQ) +            
  10.                           OUTPUT(*OUTFILE) OUTFILE(QTEMP/OUTQS)        
  11.              OVRDBF     FILE(QADSPOBJ) TOFILE(QTEMP/OUTQS)             
  12. LOOP:                                                                  
  13.              RCVF                                                      
  14.              MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(END))          
  15.              CHGVAR     VAR(&OBJ) VALUE(&ODOBNM || &ODLBNM)            
  16.              CALL       PGM(QSPROUTQ) PARM(&O &D 'OUTQ0100' &OBJ +     
  17.                           X'00000000')                                 
  18.              IF         COND(%SST(&O 621 4) *EQ &IP) THEN(DO)          
  19.              SNDPGMMSG  MSG(&ODOBNM *BCAT ' ' *BCAT &ODLBNM *BCAT ' +  
  20.                           ' *BCAT %SST(&O 218 20) *BCAT %SST(&O 97 +     
  21.                           10) *BCAT %SST(&O 133 10) *BCAT %SST(&O +      
  22.                           473 10) *BCAT %SST(&O 638 1) *BCAT +           
  23.                           %SST(&O 639 10))                               
  24.              ENDDO                                                       
  25.              GOTO       CMDLBL(LOOP)                                     
  26. END:                                                                     
  27.              ENDPGM                                                      
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css