RE: RPG400-L Digest, Vol 4, Issue 208 -- RPG400-L

can you share the dds & rpg source

Thanks,
Tommy Holden


-----Original Message-----
From: Matthew Gross [mailto:prrgg1@xxxxxxxxxxxxx]
Sent: Tuesday, February 15, 2005 3:11 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: RPG400-L Digest, Vol 4, Issue 208


Ron:
 
Thanks, but as I stated, the indicator is not used in the DltRec format,
only in the control record for the subfile.
 
Matt

rpg400-l-request@xxxxxxxxxxxx wrote:
Send RPG400-L mailing list submissions to
rpg400-l@xxxxxxxxxxxx

To subscribe or unsubscribe via the World Wide Web, visit
http://lists.midrange.com/mailman/listinfo/rpg400-l
or, via email, send a message with subject or body 'help' to
rpg400-l-request@xxxxxxxxxxxx

You can reach the person managing the list at
rpg400-l-owner@xxxxxxxxxxxx

When replying, please edit your Subject line so it is more specific
than "Re: Contents of RPG400-L digest..."


Today's Topics:

1. The Phantom Indicator (Matthew Gross)
2. Re: The Phantom Indicator (RPower@xxxxxxxxxx)
3. Re: Message Subfile (Ala, Michael A)
4. Re: PROTOTYPING - What type of data are values as *MONTH,
*DAY, *SYS (Peter Dow)
5. Subfile / Indicator Question (Matthew Gross)
6. Re: PROTOTYPING - What type of data are values as *MONTH,
*DAY, *SYS (MWalter@xxxxxxxxxxxxxxx)
7. Re: Message Subfile (Carel Teijgeler)
8. Problem Using a multible member file that is in 2 libraries
(Malchow, Grizzly)
9. Re: Message Subfile (Joep Beckeringh)


----------------------------------------------------------------------

message: 1
date: Tue, 15 Feb 2005 10:59:42 -0800 (PST)
from: Matthew Gross 

subject: The Phantom Indicator

Hope someone has run into this and can provide answer -

Subfile program has *IN33 for SFLEND(*MORE). 8 records in PF, PageSize of
11.
Puts out screen, "Bottom" displays for no more records.
Option "4" will delete record, which puts up a confirmation screen - Window,
not record. User can then exit with F3 or Enter to delete record. Prior to
EXFMT on DLTREC, I "CLEAR" format DLTREC. When SFTCTL writes back to screen,
*IN33 now off and "MORE..." appears.
*In33 is ONLY used in SFLCTL and no where else. It is ONLY turned on or off
in SFL load, which is NOT executed because user exited with F3 from
confirmation screen. When I took out the "CLEAR" to the format before EXFMT,
and exited the screen with F3, *IN33 still on and "BOTTOM" appeared.

Any ideas? TIA -

Matt


------------------------------

message: 2
date: Tue, 15 Feb 2005 15:39:20 -0330
from: RPower@xxxxxxxxxx
subject: Re: The Phantom Indicator

If *IN33 is on the DLTREC format then the clear is what's doing it. If 
you clear the format, the indicator gets cleared too I'm pretty certain, 
setting it to it's default state which is *OFF.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




Matthew Gross 

Sent by: rpg400-l-bounces@xxxxxxxxxxxx
15/02/2005 03:29 PM
Please respond to
RPG programming on the AS400 / iSeries 


To
Post AS-400 Language Questions 
cc

Subject
The Phantom Indicator






Hope someone has run into this and can provide answer -

Subfile program has *IN33 for SFLEND(*MORE). 8 records in PF, PageSize of 
11.
Puts out screen, "Bottom" displays for no more records.
Option "4" will delete record, which puts up a confirmation screen - 
Window, not record. User can then exit with F3 or Enter to delete record. 
Prior to EXFMT on DLTREC, I "CLEAR" format DLTREC. When SFTCTL writes 
back to screen, *IN33 now off and "MORE..." appears.
*In33 is ONLY used in SFLCTL and no where else. It is ONLY turned on or 
off in SFL load, which is NOT executed because user exited with F3 from 
confirmation screen. When I took out the "CLEAR" to the format before 
EXFMT, and exited the screen with F3, *IN33 still on and "BOTTOM" 
appeared.

Any ideas? TIA -

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




------------------------------

message: 3
date: Tue, 15 Feb 2005 14:21:47 -0500
from: "Ala, Michael A" 
subject: Re: Message Subfile

D-spec from Program Supplying value to SDS_PROC

D PDS SDS

D SDS_PROC *PROC
Procedure Name 


A R MSGSFL SFL 
A SFLMSGRCD(24) 
A MSGKEY SFLMSGKEY 
A SDS_PROC SFLPGMQ 
A*%% 
A R MSGCTL SFLCTL(MSGSFL) 
A*%%TS SD 20050210 080935 PGMRMI REL-V5R1M0 5722-WDS 
A SFLDSP 
A SFLDSPCTL 
A SFLINZ 
A SFLSIZ(0002) 
A SFLPAG(0001) 
A N39 SFLEND 
A SDS_PROC SFLPGMQ 



------------------------------

message: 4
date: Tue, 15 Feb 2005 11:52:30 -0800
from: "Peter Dow" 
subject: Re: PROTOTYPING - What type of data are values as *MONTH,
*DAY, *SYS

Oh. I ran into that with the %char bif as well. Until a variable is
allowed for the format, I simply have a long IF/ELSEIF statement that
translates a constant to the appropriate %char statement; it appears Igor
would have to do something similar.

Peter Dow
Dow Software Services, Inc.
909 793-9050 voice
909 793-4480 fax
951 522-3214 cell

----- Original Message ----- 
From: "Wilt, Charles" 
To: "RPG programming on the AS400 / iSeries" 
Sent: Tuesday, February 15, 2005 10:19 AM
Subject: RE: PROTOTYPING - What type of data are values as *MONTH, *DAY,
*SYS


No he wants to do the following:

/free

wResults = CalcDiff(wDate1 : wDate2 : *DAYS);
wResults = CalcDiff(wDate4 : wDate5 : *MONTHS);

/end-free

p CalcDiff b
d CalcDiff pi 10i 0
d date1 d
d date2 d
d fmt ??????????

/free

return %diff(date1:date2:fmt);

/end-free


HTH,


Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121



-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 2/14/2005




------------------------------

message: 5
date: Tue, 15 Feb 2005 11:55:40 -0800 (PST)
from: Matthew Gross 

subject: Subfile / Indicator Question

Hope someone has run into this and can provide answer -

Subfile program has *IN33 for SFLEND(*MORE). 8 records in PF, PageSize of
11.
Puts out screen, "Bottom" displays for no more records.
Option "4" will delete record, which puts up a confirmation screen - Window,
not record. User can then exit with F3 or Enter to delete record. Prior to
EXFMT on DLTREC, I "CLEAR" format DLTREC. When SFTCTL writes back to screen,
*IN33 now off and "MORE..." appears.
*In33 is ONLY used in SFLCTL and no where else. It is ONLY turned on or off
in SFL load, which is NOT executed because user exited with F3 from
confirmation screen. When I took out the "CLEAR" to the format before EXFMT,
and exited the screen with F3, *IN33 still on and "BOTTOM" appeared.

Any ideas?

TIA -

Matt




------------------------------

message: 6
date: Tue, 15 Feb 2005 15:00:19 -0500
from: MWalter@xxxxxxxxxxxxxxx
subject: Re: PROTOTYPING - What type of data are values as *MONTH,
*DAY, *SYS

You could dynamically build a SQL Statement using DAYS, MONTHS, YEARS and
then cast them back to integer.

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com



"Peter Dow" 
ware.com> To 
Sent by: "RPG programming on the AS400 / 
rpg400-l-bounces@ iSeries" 
midrange.com cc 

Subject 
02/15/2005 02:52 Re: PROTOTYPING - What type of data 
PM are values as *MONTH, *DAY, *SYS 


Please respond to 
RPG programming 
on the AS400 / 
iSeries 
e.com> 






Oh. I ran into that with the %char bif as well. Until a variable is
allowed for the format, I simply have a long IF/ELSEIF statement that
translates a constant to the appropriate %char statement; it appears Igor
would have to do something similar.

Peter Dow
Dow Software Services, Inc.
909 793-9050 voice
909 793-4480 fax
951 522-3214 cell

----- Original Message -----
From: "Wilt, Charles" 
To: "RPG programming on the AS400 / iSeries" 
Sent: Tuesday, February 15, 2005 10:19 AM
Subject: RE: PROTOTYPING - What type of data are values as *MONTH, *DAY,
*SYS


No he wants to do the following:

/free

wResults = CalcDiff(wDate1 : wDate2 : *DAYS);
wResults = CalcDiff(wDate4 : wDate5 : *MONTHS);

/end-free

p CalcDiff b
d CalcDiff pi 10i 0
d date1 d
d date2 d
d fmt ??????????

/free

return %diff(date1:date2:fmt);

/end-free


HTH,


Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121



--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 2/14/2005


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





------------------------------

message: 7
date: Tue, 15 Feb 2005 21:24:45 +0100
from: "Carel Teijgeler" 
subject: Re: Message Subfile

Michael,

SDS_PROC will have the procedure or programme name. Use another field in the
DDS and move the value '*' into it at initialization.. 

Thus:

In DDS (in SFL and SFLCTL)
A MYPGMQ SFLPGMQ

in RPG III
C MOVE '*' MYPGMQ

in RPG IV
C Eval MYPGMQ = '*'

Regards,
Carel Teijgeler


*********** REPLY SEPARATOR ***********

On 15-2-05 at 14:21 Ala, Michael A wrote:

>D-spec from Program Supplying value to SDS_PROC
>
>D PDS SDS
>
>D SDS_PROC *PROC
>Procedure Name 
>
>
> A R MSGSFL SFL 
> A SFLMSGRCD(24) 
> A MSGKEY SFLMSGKEY 
> A SDS_PROC SFLPGMQ 
> A*%% 
> A R MSGCTL SFLCTL(MSGSFL) 
> A*%%TS SD 20050210 080935 PGMRMI REL-V5R1M0 5722-WDS 
> A SFLDSP 
> A SFLDSPCTL 
> A SFLINZ 
> A SFLSIZ(0002) 
> A SFLPAG(0001) 
> A N39 SFLEND 
> A SDS_PROC SFLPGMQ 
>
>-- 
>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.






------------------------------

message: 8
date: Tue, 15 Feb 2005 14:57:12 -0600
from: "Malchow, Grizzly" 
subject: Problem Using a multible member file that is in 2 libraries

I don't usually use EXTFILE or EXTMBR, so maybe there is something I'm
missing. I keep encountering a level check when I try to open any one of
these file. Could it be because of the record formats don't match
between the temp files and the files I'm trying to override them to?

FTEMP102 IF E K DISK EXTFILE(FILE1)
F EXTMBR(MBR2YRS)
F USROPN

FTEMP101 IF E K DISK EXTFILE(FILE1)
F EXTMBR(MBR1YRS)
F USROPN

FTEMP202 IF E K DISK EXTFILE(FILE2)
F EXTMBR(MBR2YRS)
F USROPN

FTEMP201 IF E K DISK EXTFILE(FILE2)
F EXTMBR(MBR1YRS)
F USROPN

C Eval FILE1 = 'LIB1/ARCHIVEF'
C Eval FILE2 = 'LIB2/ARCHIVEF'
C Eval MBR2YRS = 'MBR2003'
C Eval MBR1YRS = 'MBR2004' 

C Open TEMP101
C Open TEMP102
C Open TEMP201
C Open TEMP202



------------------------------

message: 9
date: Tue, 15 Feb 2005 22:03:54 +0100
from: Joep Beckeringh 
subject: Re: Message Subfile

Michael,

Your msgErr data structure is empty, because you defined msge1 and msge2 as 
stand alone fields.

Joep Beckeringh


Ala, Michael A wrote:
> Thanks for the Info on the API
> 
> Here is what I have changed the d specs to 
> D*------------------------
> 
> D* Message Subfile Parms *
> 
> D*------------------------
> 
> D msgId s 7A INZ('CPF9898')
> 
> D msgLoc s 20A inz('QCPFMSG *LIBL ')
> 
> D msgRplDta s 3000A
> 
> D msgRplDtaLen s 10i 0 inz(0)
> 
> D msgType s 10A inz('*DIAG')
> 
> D msgQueue s 276A inz('*')
> 
> D msgCallStack s 10i 0 inz(0)
> 
> D msgKey s 4A inz(' ')
> 
> D msgErr ds
> 
> D msge1 s 10i 0 inz(0)
> 
> D msge2 s 10i 0 inz
> 
> D msgrmv s 10A inz('*ALL')
> 
> D*---------------------------------------------
> 
> 
> Here are my calcs - Eval Statements are her to force those values when I
> debuged the Program
> I saw that some values were being reset from what I initialized them as
> in the D Specs
> Probably data back from QMHRMVPM
> 
> 0615.00 C If ErrFlg= 'Y'
> 
> 0616.00 C Eval msgRplDta = 'Business Unit not on
> File' 
> 0617.00 C Eval msgRplDtaLen =
> %len(%TRIM(msgRplDta)) 
> 0618.00 C Eval msgID = 'CPF9898'
> 
> 0619.00 C Eval msge1 = 0
> 
> 0620.00 C eval msgKey = *blanks
> 
> 0621.00 C Exsr sndmsg
> 
> 0622.00 C Iter
> 
> 0623.00 C ENDIF
> Error Condition 
> 0624.00 C* -----
> 
> 
> Here is the call
> 0631.00 C* Send message subroutine
> 
> 0632.00 C*
> 
> 0633.00 C sndmsg begsr
> 
> 0634.00 C*
> 
> 0635.00 C call 'QMHSNDPM'
> 
> 0636.00 C parm msgId
> 
> 0637.00 C parm msgLoc
> 
> 0638.00 C parm msgRplDta
> 
> 0639.00 C parm msgRplDtaLen
> 
> 0640.00 C parm msgType
> 
> 0641.00 C parm msgQueue
> 
> 0642.00 C parm msgCallStack
> 
> 0643.00 C parm msgKey
> 
> 0644.00 C parm msgErr
> 
> 0645.00 C*
> 
> 0646.00 C endsr
> 
> 0647.00 C* -----
> 
> 0648.00 C*----------------------------
> 
> 
> I still do not get the message to display when the error condition
> exists - What am I missing
> 
> Thanks for your assistance


------------------------------

-- 
This is the RPG programming on the AS400 / iSeries (RPG400-L) digest 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.



End of RPG400-L Digest, Vol 4, Issue 208
****************************************
-- 
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.