Lawson S3 .sr coding

Sort:
You are not authorized to post a reply.
Author
Messages
Pramod Chandra
Basic Member
Posts: 12
Basic Member
    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: 468
    Veteran Member
      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
        Your KEYRNG should equal the number of characters with your index key. Therefor add blanks if less than 10.
        You are not authorized to post a reply.