RE: Problem w/ Window subfile not called

OK Looks like I am not mapping the fields the right way.

I want to be able to move the data from the windows subfile on the line
that is selected directly to the corresponding fields of the calling
program.

I assume this is possible.

I seem to be missing a step in this.


> Looks OK now I passed a different field back that contains everything so I
> can just parse out what is needed.
>
>
>> 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.
>>>
>>>
>>
>> --
>> 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.
>
>