Who's On?

	Membership:
	Latest: Alanna
	Past 24 Hours: 1
	Prev. 24 Hours: 0
	Overall: 5294

	People Online:
	Visitors: 259
	Members: 0
	Total: 259

Name	Points
Greg Moeller	4184
David Williams	3349
JonA	3291
Kat V	2984
Woozy	1973
Jimmy Chiu	1883
Kwane McNeal	1437
Ragu Raghavan	1377
Roger French	1315
mark.cook	1244

Lawson S3 .sr coding

2 Replies

0 Subscribed to this topic

17 Subscribed to this forum

Sort:

Author

Messages

Pramod Chandra

Basic Member Send Private Message

Posts: 12

4/28/2011 2:48 PM

Hi,

      I have a custom table in ZZ system code

M1LOOKUPVL Fields
PROCESS-ID     Alpha (10)                 Primary Index key1
KEY2               Alpha (10)                 Primary Index key2
KEY3               Alpha (10)                 Primary Index key3
SEQ1               Numeric(06)               Primary Index key4
FLD1               Alpha(50)

I have stored Values like
PROCESS_ID=ZR62CODE
KEY2=ZR62CODE
KEY3=ZR62CODE
SEQ1=1
FLD1=1C

my ZZ.sr codes looks like
DEFINE SELECT      "Interface codes"
       ID              ZR-MLK-S-0001
       SCRFLD      ZR62-MLK-CODES
       FILENAME    M1LOOKUPVL
       INDEX         ZMVSET1
       KEYRNG      "ZR62CODE"
       NXTKEY      ZR62-MLK-CODES
       DSPFLDS     FLD1=2:"Interface codes"
       RETURNS     FLD1 INTO ZR62-MLK-CODES

my kndef and skndef (ZZ) are
zr1 = ZR62-MLK-CODES

but still the list of values (select) doesnt work

obviously I do srgen

Thanks in Advance
pramod

Ragu Raghavan

Veteran Member Send Private Message

Posts: 477

4/28/2011 4:23 PM

In the .scr code, you have assigned the key zr1 to the appropriate field and done a compile?

Sam Simpson

Veteran Member Send Private Message

Posts: 239

4/28/2011 8:37 PM

Your KEYRNG should equal the number of characters with your index key. Therefor add blanks if less than 10.