Scheduling a Job to Run More than Once a Day

July 24, 2002 Timothy Prickett Morgan

Hey, Ted:

I saw your tip in the July 12 issue of Midrange Guru, OS/400 Edition.

I’ve done this for few clients by simply posting multiple entries in the job schedule under slightly different job names. If you have to change the job schedule entries frequently, this might not be such a good idea; my experience has been that once a job is in the scheduler, it rarely changes. I did this for a direct mail company that was running mailing list selections five times a day. Five entries to the job scheduler took care of it nicely.

Three Ways to Direct OS/400 Output Queues to TCP/IP Printers

July 24, 2002 Timothy Prickett Morgan

Dear Readers:

In shops with TCP/IP networks, a common task is to redirect OS/400 printer output to a TCP/IP printer sitting somewhere else on your network. While the easiest way to configure the printer is by hard coding the IP address inside the printer output queue configuration, that’s not the only way to do it. In fact, there are three different ways to configure an OS/400 TCP/IP remote output queue that I’d like to share with you.

For this example, let’s look at sending output to a networked TCP/IP printer by using a remote writer that is started through an

Did OPNQRYF Retrieve Records?

July 24, 2002 Timothy Prickett Morgan

Hey, Ted:

Here is a tip you may want to print. Sometimes I need to find out if an Open Query File (OPNQRYF) selection contains any records. For instance, I may want certain programs to run only if OPNQRYF did not select any records. I run the following commands after OPNQRYF runs:

/*  Copy 1 record for testing purposes  */                            
CPYFRMQRYF FROMOPNID( IVRPTHDQ ) +
   TOFILE( QTEMP/@DUMMY )  
   MBROPT( *REPLACE ) +
   CRTFILE( *YES ) +
   NBRRCDS( 1 )

RTVMBRD    FILE( QTEMP/@DUMMY ) +
   NBRCURRCD( &RCNT )       
                                                                      
IF       ( &RCNT *GT 0 ) THEN( DO )                      
   POSDBF     IVRPTHDQ  *Start        
   CALL