Re: Using multiple internally described output files

Yes, just add it to the OVRPRTF that you already have setup.

OVRPRTF FILE(OS525OTH) TOFILE(QSYSPRT) ALIGN(*NO)
    OUTQ(*LIBL/&OUTQ) FORMTYPE(CUSINV) HOLD(*NO)


Michael Schutte
We've built a better hotcake -- Stacked and Stuffed Hotcakes -- coming
January 11th!


rpg400-l-bounces@xxxxxxxxxxxx wrote on 01/05/2007 03:54:35 PM:

I'm already doing the following overrides so are you saying if PRTCD
= O I should override the OS525CAN to QSYSPRT?

 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)

Michael_Schutte@xxxxxxxxxxxx 1/5/2007 3:42 PM >>>

If so... then you need to override OS525CAN to QSYSPRT.

At least that's how we do it here.   OVRPRTF OS525CAN QSYSPRT prior to
opening of the files.



Michael Schutte
We've built a better hotcake -- Stacked and Stuffed Hotcakes -- coming
January 11th!


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 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 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.