why im nt getting spool file ?what cud be the output?

[murali dhar <hydchap1@xxxxxxxxx>]

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