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



Iam analyzing the following programs?GMIRPMF1 is the externally described file 
with record length 208 which is being used in RPG as program described ?.These 
programs 

Have compiled successfully and are the correct programs ?iam nt getting any 
spool file when I call this CL program ..what could be the reason? if I assume 
I don?t ve any selection criteria in GMIRPMF1 ,even then Iam nt getting a spool 
file with atleast headings ?.what could be the reason?Please provide me 
pointers or ask me any questions if you feel the info given here is nt enough?.

Thank you so much,

Murali.

===============================================================

PGM                                                   

 DCL        VAR(&FLIB) TYPE(*CHAR) LEN(10)             

                                                       

YGETFLIB &FLIB                                        

CPYF       FROMFILE(&FLIB/GMIRPMF1) +                 

              TOFILE(&FLIB/ORGRPMF1) MBROPT(*REPLACE) +

              CRTFILE(*YES) FROMRCD(1) FMTOPT(*NOCHK)  

CALL       PGM(YCV06020R)                             

 ENDPGM                                                

==============================================================

FGMIRPMF1UF  F     218            DISK                  

IGMIRPMF1AA                                             

I                                        2   2 FIRM     

I                                       13  17 CIDENT   

I                                       20  22 CFIRM    

I                                        5  12 OFCAC    

I                                       13  16 NAME     

I                                       30  33 CCYY     

I                                       55  56 TYPE     

I                                      201 202 CLSUB    

C                     READ GMIRPMF1                 60  

C           *IN60     DOWEQ'0'                          

C                     SETOF                     979899  

C*                                                      

C           CCYY      IFEQ '2099'                       

C                     SETON                     97      

C                     END                              

C*                                                     

C           FIRM      IFEQ 'B'                         

C           CLSUB     ANDEQ'H '                        

C           FIRM      OREQ 'M'                         

C           CLSUB     ANDEQ'H '                        

C           CIDENT    IFEQ 'CFTC'                      

C           CIDENT    OREQ 'COT'                       

C           CIDENT    OREQ 'BOT'                       

C           CIDENT    OREQ 'CME'                      

 C                     MOVE 'G'       FIRM    1        

 C                     SETON                     99    

 C                     END                             

 C                     END                             

 C*                                                    

 C           NAME      IFEQ 'BOT '                     

 C* These are omnibus accounts                         

 C           OFCAC     IFEQ '03309123'                 

C                     MOVE '   09123'OFCAC              

C                     SETON                     99      

C                     END                               

C* GSCD clients                                         

C           FIRM      IFEQ 'M'                          

C           OFCAC     ANDEQ'97580091'                   

C                     MOVE ' 0109123'OFCAC              

C                     SETON                     99      

C                     END                               

C* GSI clients                                           

C           FIRM      IFEQ 'B'                           

C           OFCAC     ANDEQ'50500003'                    

C                     MOVE ' 0166607'OFCAC               

C                     SETON                     99       

C                     END                                

C*                                                       

C                     END                                

C         97                                             

COR       98                                                

COR       99          EXCPTOUT                              

C                     READ GMIRPMF1                 60      

C                     END                                   

C**                                                         

C                     MOVE '1'       *INLR                  

C**                                                         

OGMIRPMF1E                OUT                               

O                    99   FIRM       2                      

O                    99   OFCAC     12                      

O                    99   CFIRM     22                      

O                    97             33 '1999'               

===============================================================



---------------------------------
Do you Yahoo!?
The New Yahoo! Shopping - with improved product search

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.