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



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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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.