• Search Forums
    Advanced Search Topics Posts
Prev
Next
Forums Integration / Customization S3 Customization/Development

Lawson S3 .sr coding

 2 Replies
 0 Subscribed to this topic
 18 Subscribed to this forum
Sort:
Author
Messages
Pramod Chandra
Basic Member
Posts: 12
Basic Member
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
Posts: 477
Veteran Member
New Poster
New Poster
Congrats on posting!
Engaged Poster
Engaged Poster
Wow, you're on a roll!
Avid Poster
Avid Poster
Seriously, you're a posting maniac!
Engaged Reader
Engaged Reader
You are an engaged reader!
Avid Reader
Avid Reader
Avid Reader art thou!
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
Posts: 239
Veteran Member
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.