RE: Software Vendors

[HwaRangRon@xxxxxxx]

Would a program like this meet your criteria? (I am not holding this as 
 bug free, only that it has always worked for me without failing.  My 
 working version also gets the IP address, but I deleted that since I don't 
 understand how it works.)


              PGM 
 /* .............................................................. */ 
 /* ..........THIS PROGRAM SIMPLY DISPLAYS who I am                */ 
 /* .....                                                        . */ 
              DCL        VAR(&MSGTXT) TYPE(*CHAR) LEN(85) 
<              DCL        VAR(&NAME) TYPE(*CHAR) LEN(10) 
              DCL        VAR(&printer) TYPE(*CHAR) LEN(10) 
              DCL        VAR(&DATE6) TYPE(*CHAR) LEN(6) 
              DCL        VAR(&DATE8) TYPE(*CHAR) LEN(10) 
  
              RTVJOBA    USER(&NAME) JOB(&DEVD) DATE(&DATE6) + 
                           PRTDEV(&PRINTER) /* get informatio>

Booth,
Are programs that won't compile bug free? <g> &DEVD is not defined.
+---
| 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
+---