RE: Subfile problem

I think the problem is since you use the same indicators for both the
subfiles. When you seton 73 it will try to clear both the subfiles.
Try using different indicators for each subfile and check whether it
works.

Satheesh

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
fkany@xxxxxxxxxxxxxxxxxx
Sent: Monday, October 10, 2005 8:04 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: Subfile problem


Good morning,

I've got 2 screens(screen1 & screen2) and each has a subfile.  Screen1
displays and functions just fine.  When an option is chosen on screen1,
screen2 is supposed to display, but when I try to clear the subfile, the
program bombs.  In the RPGIV code below, the program bombs on the WRITE
operation.  The job log wasn't helpful.

Any ideas?

TIA,

Frank

I use the same subfile control specs in both screens:
     A*
     A* ========
     A* Screen 1 - CONTROL
     A* ========
     A          R ARSCRN01
     A                                      SFLCTL(ARSCRNSFL)
     A                                      SFLSIZ(14)
     A                                      SFLPAG(13)
     A                                      CF03(03 'F3=Exit')
     A N74                                  SFLDSP
     A N73                                  SFLDSPCTL
     A  73                                  SFLCLR
     A  75                                  SFLEND(*MORE)
     A                                      OVERLAY
     A                                      SFLCSRRRN(&@@RRL1)
     A                                      RTNCSRLOC(&##1RCD &##1FLD)
     A                                      CSRLOC(##1ROW ##1COL)
     A            @@RRL1         5S 0H
     A            ##1FLD        10A  H
     A            ##1ROW         3S 0H
     A            ##1COL         3S 0H
     A            ##1RCD        10A  H
     A            @@RRN1         4S 0H      SFLRCDNBR(CURSOR)
     A*
     A* ========
     A* Screen 2 - CONTROL
     A* ========
     A          R ARSCRN02
     A                                      SFLCTL(ARSCRNSFL2)
     A                                      SFLSIZ(9)
     A                                      SFLPAG(8)
     A                                      CF03(03 'F3=Exit')
     A N74                                  SFLDSP
     A N73                                  SFLDSPCTL
     A  73                                  SFLCLR
     A  75                                  SFLEND(*MORE)
     A                                      OVERLAY
     A                                      SFLCSRRRN(&@@RRL2)
     A                                      RTNCSRLOC(&##2RCD &##2FLD)
     A                                      CSRLOC(##2ROW ##2COL)
     A            @@RRL2         5S 0H
     A            ##2FLD        10A  H
     A            ##2ROW         3S 0H
     A            ##2COL         3S 0H
     A            ##2RCD        10A  H
     A            @@RRN2         4S 0H      SFLRCDNBR(CURSOR)

     *
     * S02_LOAD - Load All Email Addresses for Record into Screen 2
 
**********************************************************************
FRANKP S02_LOAD        B
     ?*
     ?* ------------------
     ?* Initialize Subfile
     ?* ------------------
     ?*  Clear Subfile
     C                   EVAL      *IN73 = *ON
     C                   WRITE     ARSCRN02
     C                   EVAL      *IN73 = *OFF
     C                   EVAL      @@RRN2 = 0