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



I'm already using the following overrides:

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)                             


R_C_DuVall@xxxxxxxxxx 1/5/2007 3:52 PM >>>
Or just 'crtprtf OS525CAN'  

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] 
On Behalf Of Michael_Schutte@xxxxxxxxxxxx 
Sent: Friday, January 05, 2007 2:43 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Using multiple internally described output files

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.



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.