More on TCP/IP Printing

August 23, 2002 Timothy Prickett Morgan

Hey, Ted:

I’ve been reading your articles on TCP/IP printing and I thought I’d pass on a tidbit of information that my shop recently received from Rochester support.

One of the nagging issues with TCP/IP printer support has been the lack of Page Range support for IP printers. This means that users cannot select a range of pages to print from their spool files. We have been using a shareware tool called Spool Tool to get around this. Spool Tool copies a range of pages and creates a new spool file, which can then be printed.

It appears that IBM

Use Monitor to Trap QCMDEXC Errors

August 23, 2002 Timothy Prickett Morgan

Hey, Ted:

How do I find out why QCMDEXC failed when called in an RPG program?

— John

Trap the error so your program doesn’t cancel. I like the new monitor and on-error op codes for this:

D QCmdExc         pr                  extpgm('QCMDEXC') 
D    Cmd                       256a   const             
D    CmdLen                     15p 5 const             
                                                        
D Cmd             s            256                      
                                                        
D psds           sds                                    
D   MsgID                40     46                      
D   Msg                  91    170                      
                                                        
C                   eval      cmd = 'dsplib br549'      
C                   monitor                             
C                   callp     qcmdexc (cmd: %size(cmd)) 
C                   on-error                            
C* call to qcmdexc failed -- do whatever 
C                   endmon                              

If you prefer, you can add an argument of *program

Odds and Ends

August 23, 2002 Timothy Prickett Morgan

Dear Readers:

Back by popular demand, here are more “Odds and Ends.” I hope you find something of interest.

— Ted

Question:

Is there a command to get the source type of a source physical file member?

I’ve written an automated source backup/update program, and if I could get the type of source I could then determine which command to issue to create or compile the source.

Answer:

Try Retrieve Member Description (RTVMBRD). There’s a SRCTYPE parameter that will do the trick.

DCL  VAR(&LIB)     TYPE(*CHAR) LEN(10)                   
DCL  VAR(&FILE)    TYPE(*CHAR) LEN(10)                  
DCL  VAR(&MEMBER)  TYPE(*CHAR) LEN(10)                
DCL  VAR(&SRCTYPE) TYPE(*CHAR) LEN(10)               
                                                           
RTVMBRD