Loading PTF Cover Letters from CD-Rom

["Walden H. Leverich" <WaldenL@xxxxxxxxxxxxxxx>]

If necessity is the mother of invention, laziness is the father... 

I recently ordered 2 (just 2) PTFs from IBM and I received a cd-rom with
about 60 (the wonders of supercedes, co-reqs, pre-reqs, etc). Not wanting to
load the cover pages by had for 60 PTFs I've written a quick CL program that
does this for me. Short, simple and crude, I release it to the public
domain.

-Walden

*** Begin Source ***

PGM  PARM(&pPrd &pDev)                                                 
                                                                       
dcl &pPrd *char 7 /*Product 5769SS1, 5769ST1, etc */
dcl &pDev *char 10 /* Device OPT01, OPT02, etc. */
dcl &wPath *dec 4                                                      
dcl &wPathC *char 4                                                    
                                                                       
/* Load PTF Cover Sheets */
loop:                                                                  
chgvar &wPath (&wPath + 1)                                             
LODPTF LICPGM(&pPrd) DEV(&pDev) PATHID(&wPath) COVER(*ONLY)            
monmsg cpf355c exec(goto endloop) /* Bail on 'Path Not Found' error */
goto loop                                                              
                                                                       
endloop:                                                               
rcvmsg /*Trash cpf355c from stack */                                   
                                                                    
/* Send completion message */
chgvar &wPath (&wPath - 1)                                          
chgvar &wPathC (&wPath)                                             
sndpgmmsg msg(&wPathC || ' PTF Cover Sheets loaded.') MSGTYPE(*COMP)
                                                                    
endpgm                                                              

*** End Source ***
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---