RE: Problem w/ Window subfile not called -- RPG400-L

As far as passing the selected record, it is not doing this. I want to
fill the selected record on the windows subfile into the corresponding
class field.

The calling program routine:
c     getdta        begsr
c                   call      'OBRCLS3'
c                   parm                    vcls
c                   endsr

on debugging, vcls is always blank.

The DDS of the Windows subfile:
A          R WINDOW1                   SFL
A*
A            CTLFLD         1Y 0H      SFLCHCCTL
A            VCLS           3A  H
A            FULLNM        30   O  6  2
A*
A          R SF1CTL                    SFLCTL(WINDOW1)
A*
A                                      SFLDSP
A N31                                  SFLDSPCTL
A  31                                  SFLCLR
A N31                                  SFLEND(*MORE)
A                                      SFLSIZ(0500)
A                                      SFLPAG(0007)
A                                      WINDOW(*DFT 14 44 *NOMSGLIN
A                                      WDWBORDER((*COLOR PNK))
A                                      WDWTITLE((*TEXT 'CLS SELECT
A                                      SFLSNGCHC(*RSTCSR)
A                                      SFLCSRRRN(&RRN1)

RPG of the Windows subfile program

0015.00 *****************************************************************
0016.00 C     *entry   list
0017.00 C           parm                    vcls
0018.00 c           clear                   fulln1            4
0019.00 c           clear                   clsb              1
0020.00  *


> The name of the program being called (surrounded by single quotes in your
> prototype's EXTPGM keyword  or CALL statement) must be in UPPER CASE:
>
> C                   Call      'ARC543'
>
> Or
>
> D Arc543          PR                  Extpgm('ARC543')
>
>  /free
>   Arc543();
>  /end-free
>
> There are some C-type APIs and such that have mixed-case names (which is
> why
> you have to put the name in quotes), but user-written programs are
> generally
> upper-case.
>
> Francis Lapeyre
> IS Dept. Programmer/Analyst
> Stewart Enterprises, Inc.
> E-mail: flapeyre@xxxxxxxx
>
>
>
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of steema@xxxxxxxxxxxxx
> Sent: Thursday, January 12, 2006 8:01 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Problem w/ Window subfile not called
>
> HI I wrote a Windows subfile program that I put in another program, it
> should be called on an F4. A parm is being passed and there is a parm on
> the
> other program. If you can help please, i have not done this in probably 10
> years.I get this message:
>
> Message ID . . . . . . :   MCH3401
> Date sent  . . . . . . :   01/12/06      Time sent  . . . . . . :
> 09:01:34
>
> Message . . . . :   Cannot resolve to object rbrcls3. Type and Subtype
> X'0201'   Authority '0000'.
>
> Cause . . . . . :   Either a system pointer or a data pointer can not be
>      resolved.
>
>
> --
> 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.
>
>