Re: CL in OCL

At 07:57 PM 1/22/98 -0500, Marc Zylka wrote:
>Shown here is the exact code I used.  I placed the parameters needed into
>the
>OVRPRTF from the // PRINTER statement as shown.  This code works great
>when I tested it with my ID, but not when it ran during the evening hours.
>
>
>OVRPRTF  FILE(AVALSALE) PAGESIZE(66) LPI(8) CPI(15) +
>         OUTQ(NYHP4) COPIES(1) SAVE(*YES)
Marc,
I don't know if this will work, but try:
OVRPRTF FILE(PO) (or FILE(*PRTF)) PAGESIZE(66) OFLINE(58) OUTQ(NYHP4) SAVE(*YES)

(BTW, the default equivalent for LPI-8 would be PAGESIZE(88) OFLINE(80))

>// LOAD DOAFS
>// FILE NAME-DOFMMAST,DISP-SHR,LABEL-DOBMMAST
>// FILE NAME-DOFAAFS,DISP-SHR,LABEL-DOBAAFS,RETAIN-S
>// FILE NAME-DOFLMAST,DISP-SHR,LABEL-DOBMMAST
>// FILE NAME-FKFMREAS,DISP-SHR
>// FILE NAME-FKFMSTYL,DISP-SHR
>// FILE NAME-FKFMFABR,DISP-SHR

and reinstate the printer statement:
// PRINTER NAME-AVALSALE,DEVICE-P0,COPIES-1,LPI-8,CPI-15,HOLD-YES,PRIOR

>// RUN
>DLTOVR     FILE(*PRTF)

hth but no guarantees
Pete


Pete Hall
peteh@inwave.com 
http://www.inwave.com/~peteh/

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@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
+---