× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. January 2007

Re: Using multiple internally described output files

I added the new OVRPRTF before the call


AlanShore@xxxxxxxx 1/5/2007 4:31 PM >>>

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.

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.