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



Did you also change the Clrdiv sub-routine to use those field names
instead of *in41, 42, and 43? 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Shore
Sent: Friday, July 28, 2006 11:16 AM
To: RPG programming on the AS400 / iSeries
Cc: RPG programming on the AS400 / iSeries;
rpg400-l-bounces@xxxxxxxxxxxx
Subject: RE: SFLDSPCTL or SFLDSP option required for PUTGET


Thanks - I thought that may have been it, so they are now part of the
ScreenInd.
Unfortunately, the same problem still exists

Thanks anyway


Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx


 

             "Lim Hock-Chai"

             <Lim.Hock-Chai@us

             amobility.com>
To 
             Sent by:                  "RPG programming on the AS400 /

             rpg400-l-bounces@         iSeries" <rpg400-l@xxxxxxxxxxxx>

             midrange.com
cc 
 

 
Subject 
             07/28/2006 11:57          RE: SFLDSPCTL or SFLDSP option

             AM                        required for PUTGET

 

 

             Please respond to

              RPG programming

              on the AS400 /

                  iSeries

             <rpg400-l@midrang

                  e.com>

 

 





*in41, 42, and *in43 control the display but is not defined in ScreenInd
data structure ==> never get turn on/off.
     A  41                                  SFLDSP
     A  42                                  SFLDSPCTL
     A  43                                  SFLCLR

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Shore
Sent: Friday, July 28, 2006 10:50 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: SFLDSPCTL or SFLDSP option required for PUTGET


Sorry guys - I just re-displayed my job log and realized the display of
SFLDSPCTL or SFLDSP option required for PUTGET was automatically being
cancelled out.
The real error is
Session or device error occurred in file SLSTOPSLLR (C G D F) Which is
NOT a real help Obviously its an error that when I find it, or when its
pointed out to me, I will probably give myself a dope-slap



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx




             Alan Shore

             <AlanShore@xxxxxx

             om>
To
             Sent by:                  RPG programming on the AS400 /

             rpg400-l-bounces@         iSeries <rpg400-l@xxxxxxxxxxxx>

             midrange.com
cc



Subject
             07/28/2006 11:43          SFLDSPCTL or SFLDSP option
required
             AM                        for PUTGET





             Please respond to

              RPG programming

              on the AS400 /

                  iSeries

             <rpg400-l@midrang

                  e.com>










Hi all
I'm having a problem that is sending me absolutely nuts (I know -- some
of you are probably saying "Too late for that") Be that as it may I have
created a simple Display file and RPG ILE program The display file code
is


     A*%%TS  DD  20060728  112313  AShore      REL-V5.0.1  WDSc
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      INDARA
     A          R SCREEN1
     A*%%TS  DD  20060728  112313  AShore      REL-V5.0.1  WDSc
     A                                  1  2DATE
     A                                      EDTCDE(Y)
     A                                  1 11TIME
     A                                  1 32'Top Sellers report'
     A                                      DSPATR(RI)
     A                                  1 70SYSNAME
     A            PGMNAM        10A     2  2DSPATR(HI)
     A                                  2 14'screen1'
     A                                  2 70USER
     A                                  5 13'Press Enter to display the
paramet-
     A                                      ers that are available'
     A                                  6 13'for you to choose,'
     A                                  7 13'otherwise, press F3 to
exit.'
     A                                 23  3'F3 - Exit'
     A*%%GP UNTITLED   01
     A          R WDWDIVCHCF
     A*%%TS  DD  20060727  150400  AShore      REL-V5.0.1  WDSc
     A*
     A** Window Controls
     A                                      WINDOW(*DFT 17 55 *NOMSGLIN)
     A                                      WDWTITLE((*TEXT 'Selection
by
Divis-
     A                                      ion') (*COLOR WHT) (*DSPATR
HI
UL))
     A*%%WP 0 01 001
     A*
     A          R DSPDIVCHCF
     A*%%TS  SD  20050615  102025  ALANS       REL-V5R3M0  5722-WDS
     A                                      SFL
     A            DIVOPT         1A  B  4  3DSPATR(HI)
     A            COMPNY         1A  O  4  5DSPATR(HI)
     A            CNAME         30A  O  4  7DSPATR(HI)
     A          R CTLDIVCHCF
     A*%%TS  DD  20060727  152250  AShore      REL-V5.0.1  WDSc
     A                                      SFLCTL(DSPDIVCHCF)
     A                                      CF12
     A                                      SFLSIZ(13)
     A                                      SFLPAG(12)
     A** Window Reference
     A                                      WINDOW(WDWDIVCHCF)
     A** Subfile Controls
     A                                      OVERLAY
     A                                      FRCDTA
     A  41                                  SFLDSP
     A  42                                  SFLDSPCTL
     A  43                                  SFLCLR
     A  46                                  SFLEND(*MORE)
     A                                      SFLCSRRRN(&TESTRRN)
     A            TESTRRN        5S 0H
     A            SFLPOSCHG      4S 0H      SFLRCDNBR(CURSOR)
     A          R FTRDIVCHCF
     A*%%TS  DD  20060727  152250  AShore      REL-V5.0.1  WDSc
     A                                      WINDOW(WDWDIVCHCF)
     A                                 16  2'F12=Exit'
     A*----------------------------------------------------------------
     A*****************************************************************
     A          R DUMMY
     A*%%TS  DD  20060727  150400  AShore      REL-V5.0.1  WDSc
     A                                      ASSUME
     A                                  1  3' '
     A*****************************************************************
     A*  --------------------------------------------------------------
     A*  -  ERROR MESSAGE SUBFILE CONTROL RECORD FORMAT               -
     A*  --------------------------------------------------------------
     A          R MSGSFL
     A*%%TS  SD  20031114  111917  LLOYD       REL-V5R2M0  5722-WDS
     A                                      SFL
     A                                      SFLMSGRCD(17)
     A            MSGKEY                    SFLMSGKEY
     A            PGMQ                      SFLPGMQ(10)
     A*  --------------------------------------------------------------
     A*  -  ERROR MESSAGE SUBFILE CONTROL                             -
     A*  --------------------------------------------------------------
     A          R MSGCTL
     A*%%TS  SD  20031114  111917  LLOYD       REL-V5R2M0  5722-WDS
     A                                      SFLCTL(MSGSFL)
     A                                      WINDOW(WDWDIVCHCF)
     A                                      OVERLAY
     A                                      SFLDSP
     A                                      SFLDSPCTL
     A                                      SFLINZ
     A N99                                  SFLEND
     A                                      SFLSIZ(2)
     A                                      SFLPAG(1)
     A            PGMQ                      SFLPGMQ(10)
     A*





The RPG code is

     H bnddir('MAILBIND':'STRINGSP')
     H dftactgrp(*no) actgrp('QILE')
     H option(*srcstmt:*nodebugio)
?
**********************************************************************
?     * MODIFICATIONS:
?     * -------------
?     *   Date      PGMR     MOD     Reasons
?     * --------  ---------  ----
-----------------------------------------
?     *
?
**********************************************************************
     FCompnyp   if   e           k disk
     FSlstopsllrcf   e             workstn indds(ScreenInd)
     F                                     sfile(Dspdivchcf:Divrrn)
     F                                     infds(info)
?
**********************************************************************
?     ** PROTOTYPES
      /copy prdsrc/protype,messagepr
      /copy nbtygpl/protype,stringpr


*---------------------------------------------------------------------
      * Stand Alone Fields - TOP

*---------------------------------------------------------------------
     D PgmQ            s             10    inz('*')
     D Divrrn          s              6  0 inz(1)
     D Sfl1Size        s              6  0 inz(14)

*---------------------------------------------------------------------
      * Stand Alone Fields - BOTTOM

*---------------------------------------------------------------------
     Dinfo             ds
     D  key                  369    369
     D  #row                 370    370
     D  #col                 371    371
     D  Csrloc               370    371B 0
     D  sflrrn               378    379B 0
      /copy prdsrc/copybook,FKeys

     D ScreenInd       ds
     D  DecreaseIx            49     49n
     D  Sfl1NextChg           50     50n
     D  Sfl1More              51     51n
     D  ClrSfl1               52     52n
     D  ShowFKeys             53     53n
     D  ProtectSelect         54     54n
     D  ShowF13               55     55n
     D  ShowF16               56     56n
     D  Selectall             57     57n
     D  Redisplaymsgs         58     58n
     D  Foundpriormsg         59     59n
     D  Sfl2NextChg           60     60n
     D  Sfl2More              61     61n
     D  ClrSfl2               62     62n
     D  Chgmsgscrn2           63     63n
     D  Dltmsgscrn2           64     64n
     D  Otheritems            65     65n
     D  Redisplayitms         66     66n
     D  Addmsgscrn2           67     67n
     D  Dsplysrcscrn2         68     68n
     D  Sfl3NextChg           70     70n
     D  Sfl3More              71     71n
     D  ClrSfl3               72     72n
     D  Allmsgs               73     73n
     D  Onlyitemmsgs          74     74n
     D  Noitemmsgs            75     75n
     D  InvalidSuffix         90     90n
     D  InvalidSkuNo          91     91n
     D InvalidExclAll         92     92n

     DScreenInfo       ds
     D KeyPressed            369    369
     D CursorLoc             370    371b 0
?     * PROGRAM STATUS DATA STRUCTURE
      /copy prdsrc/copybook,psds

     C                   Eval      Pgmnam = PsdsPgmName
     C                   dou       key = @f03
     c                   exfmt     Screen1
     C                   if        key = @Enter
     c                   exsr      Proc4parms
     C                   endif
     C                   enddo
?     *
     c                   eval      *inlr = *on
?     *****************************************************************
     c     Proc4parms    begsr
?     *
     C                   exsr      LoadDiv
     c                   eval      *in46 = *on
     C                   dou       key = @f03
     c                   write     Wdwdivchcf
     c                   write     Ftrdivchcf
     C                   write     MsgCtl
     c                   exfmt     Ctldivchcf
     C                   callp     RmvErrMsg
     C                   enddo
?     *
     c                   endsr
?     *****************************************************************
     c     LoadDiv       begsr
?     *
     c                   exsr      Clrdiv
?     **  Activate the window
     c                   eval      Sflposchg = 1
     c     *loval        setll     Compnyp
     c                   dou       %eof(Compnyp)
     c                   read      Compnyp
     c                   if        not %eof(Compnyp)
     c                   add       1             Divrrn
     c                   eval      Divopt = ' '
     c                   write     Dspdivchcf
     c                   endif
     c                   enddo
?     *
     c                   endsr
?     *****************************************************************
     c     Clrdiv        begsr
?     *
     c                   clear                   Ctldivchcf
     c                   eval      *in41 = *off
     c                   eval      *in42 = *off
     c                   eval      *in43 = *on
     c                   write     Ctldivchcf
     c                   eval      *in41 = *on
     c                   eval      *in42 = *on
     c                   eval      *in43 = *off
?     *
     c                   z-add     0             Divrrn
?     *
     c                   endsr


Using debug, the problem occurs on the line
                        exfmt     Ctldivchcf

that when I display the job log, the error
                        SFLDSPCTL or SFLDSP option required for PUTGET
is shown.

Which to me doesn't make ANY sense as (in debug) both *in41 & *in42 are
both on

If any one can point me in the right direction, I would be very grateful

Thanks in advance



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
--
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 ...

Follow-Ups:

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.