Re: Using multiple internally described output files

[Alan Shore <AlanShore@xxxxxxxx>]

You can change the OVRPRTF to
 OVRPRTF FILE(OS525OTH) TOFILE(*LIBL/QSYSPRT) ALIGN(*NO) OUTQ(*LIBL/&OUTQ)
      FORMTYPE(CUSINV) HOLD(*NO)



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx

rpg400-l-bounces+alanshore=nbty.com@xxxxxxxxxxxx wrote on 01/05/2007
04:07:39 PM:

> Alan,
>
> I'm already doing the following OVR's and the library list is correct:
> IF (&PRTCD = 'O') THEN(DO)
>  OVRPRTF    FILE(OS525OTH) ALIGN(*NO) +
>             OUTQ(*LIBL/&OUTQ) FORMTYPE(CUSINV) HOLD(*NO)
>     ENDDO
>
>  CALL       PGM(OS525ECUST) PARM(&SHIPPER &PRTCD)
>
>  IF (&PRTCD = 'C') THEN(DO)
>  RTVSPLFA   SPLF(OS525CAN) SPLNBR(*LAST) TOTPAG(&TOTPAG)
>  CHGVAR     VAR(&PAGES) VALUE(&TOTPAG)
>
>     COPY REPORT TO A DATABASE FILE*/
>  CRTPF      FILE(QTEMP/SPOOLFILE) RCDLEN(133)
>  MONMSG     MSGID(CPF7302)
>  CPYSPLF    FILE(OS525CAN) TOFILE(QTEMP/SPOOLFILE) +
>               SPLNBR(*LAST) MBROPT(*REPLACE) CTLCHAR(*FCFC)
>
>     UPDATE THE NUMBER OF PAGES*/
>  OVRDBF     FILE(SPOOLFILE) TOFILE(QTEMP/SPOOLFILE)
>  CALL       PGM(UPDTPAGE) PARM(&PAGES)
>  DLTOVR     FILE(SPOOLFILE)
>
>     REBUILD THE SPOOLED FILE*/
>  OVRPRTF    FILE(OS525CAN) TOFILE(*FILE) ALIGN(*NO) +
>             CTLCHAR(*FCFC) OUTQ(CUSINVC) +
>             FORMTYPE(CUSINVCN) HOLD(*NO) USRDTA(FINALCA
>  CPYF       FROMFILE(QTEMP/SPOOLFILE) TOFILE(OS525CAN)
>  DLTOVR     FILE(OS525CAN)
>     ENDDO
>  DLTOVR     FILE(OS525OTH)
>
> Am I missing something?
>
> Thanks
> Jennifer
>
>
>
> > > > AlanShore@xxxxxxxx 1/5/2007 3:47 PM >>>
> Jennifer - the error means exactly what its saying.
> The file OS525OTH does not exist in the library list.
> Is it in one particular library? If so add that library to your library
> list.
> Should the file be overridden to another?
> Then use OVRPRTF to whichever print file you should be using.
>
>
>
> Alan Shore
>
> NBTY, Inc
> (631) 244-2000 ext. 5019
> AShore@xxxxxxxx
>
> rpg400-l-bounces@xxxxxxxxxxxx wrote on 01/05/2007 03:03:11 PM:
>
> > Can anyone tell me why I'm getting the following implicit open error
> > and why it says the file doesn't exist on the following:
> >
> > Error messages:
> > File OS525OTH in library *LIBL not found or inline data file missing.
>
> > Error message CPF4101 appeared during OPEN for file OS525OTH.
>
> > Function check. RNX1216 unmonitored by OS525ECUST at statement
> 0001000001,
> >   instruction X'0000'.
> >
> > FOS525CAN  O    F   87        PRINTER OFLIND(*INOF)
> > F                                     INFDS(OS525D)
> > FOS525OTH  O    F   87        PRINTER OFLIND(*INOG)
> > F                                     INFDS(OS526D)
> >
> >
> > D OS525D          DS
> > D******************************************
> > D* PRINTER FILE DATA STRUCTURE (OS525D)
> > D******************************************
> > D  OS525F                 1    102
> > D  OS525S           *STATUS
> > D  OS525_LIN            367    368B 0
> > D*
> > D OS526D          DS
> > D******************************************
> > D* PRINTER FILE DATA STRUCTURE (OS526D)
> > D******************************************
> > D  OS526F                 1    102
> > D  OS526S           *STATUS
> > D  OS525_LIN2           367    368B 0
> >
> >
> > I tried also using the USROPN and %OPEN but these didn't work
> > either.
> >
> > Thanks
> > Jennifer
> >
> > This transmission may contain information that is privileged,
> > proprietary, confidential and/or exempt from disclosure under
> > applicable law. If you are not the intended recipient, you are
> > hereby notified that any disclosure, copying, distribution, or use
> > of the information contained herein (including any reliance thereon)
> > is STRICTLY PROHIBITED. If you received this transmission in error,
> > please immediately contact the sender and destroy the material in
> > its entirety, whether in electronic or hard copy fo
> > rmat. Thank you.
> > <<<<gwavasig>>>>
> >
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.