T24 : Local references

[hareendra seneviratne]

Hi all,

 

I want to extract T24 table to a text file. In the output of my routine, all local reference fields are recognized as one single field. example record :

 

SHORT.NAME|MNEMONIC| ...........  | LOCAL1^ LOCAL2^ LOCAL3 ^LOCAL 4| .....

 

I want the output to be like

 

SHORT.NAME|MNEMONIC| ...........  | LOCAL1| LOCAL2 |LOCAL3 | LOCAL 4| ....

 

I use the below mentioned code.

 

 

 LOOP
        REMOVE CUSTID FROM CUSTLIST SETTING MORE
    WHILE CUSTID:MORE
        CUSTREC = ''; CUSTERR = ''
        CALL F.READ(FN.CUS,CUSTID,R.CUS,FP.CUS,CUSTERR)

 

         CONVERT FM TO '|' IN R.CUS

        CONVERT VM TO '^' IN R.CUS

       CONVERT SM TO '%' IN R.CUS

       

        WRITESEQ R.CUS TO NDB.CUST ELSE PRINT "ERR"

   

 REPEAT

 

 

What might've gone wrong???

 

Many thanks for your kind replies...  

 

 

[JOSE L MARTINEZ-AVIAL]

The Local Ref fields of a table are not really fields(separated by FM), but subfields (separated by @VM) in a field. So the output you got is consistent with the program you made. All the fields are separated by '|', and the subfields in Local Ref are separated with '^'. You may want to rethink how you are extracting that information.

JL

2010/2/17 hareendra seneviratne <haree...@gmail.com>

 

--
Please read the posting guidelines at: http://groups.google.com/group/jBASE/web/Posting%20Guidelines
 
IMPORTANT: Type T24: at the start of the subject line for questions specific to Globus/T24
 
To post, send email to jB...@googlegroups.com
To unsubscribe, send email to jBASE-un...@googlegroups.com
For more options, visit this group at http://groups.google.com/group/jBASE?hl=en

[Anureka Rajesh]

Immediately after reading customer record., do the following

CONVERT VM TO '|' IN R.CUS<EB.CUS.LOCAL.REF>

 

This will solve your issue

 

--

[praveen kumar]

Hi,

Actually Local reference is single field only.

what you need to do is only a small work around. before converting the
multi value to '^' , you need to get the position of LOCAL.REF and
convert the multivalue in R.CUST(LOCAL.REF.POS) to '|' .

hope this might help you.

Thanks & Regards,
Praveen

On Thu, Feb 18, 2010 at 10:21 AM, hareendra seneviratne
<haree...@gmail.com> wrote:

[jaro]

why are you converting the VM and SM to different values when you want
the '|' delimiter?

CONVERT VM TO '^' IN R.CUS
CONVERT SM TO '%' IN R.CUS

you should do the same as for FM like
CONVERT FM:VM:SM to "|||" IN R.CUS

[hareendra seneviratne]

Hi all,

 

Many thanks for ur replies....

I modified the loop as and it works for me. What I did was converting the VM in local reference first and then ament it to the final result.

 

  CURR.LOCAL.REF=''

    LOOP
        REMOVE CUSTID FROM CUSTLIST SETTING MORE
    WHILE CUSTID:MORE

        CUSTREC = ''; CUSTERR = ''
        CALL F.READ(FN.CUS,CUSTID,R.CUS,FP.CUS,CUSTERR)

        CURR.LOCAL.REF = R.CUS<EB.CUS.LOCAL.REF>
        CONVERT VM TO '|' IN CURR.LOCAL.REF
        R.CUS<EB.CUS.LOCAL.REF> = '|':CURR.LOCAL.REF:'|'

        CONVERT FM TO '|' IN R.CUS
        CONVERT VM TO '^' IN R.CUS

        CONVERT SM TO '#' IN R.CUS

        WRITESEQ CUSTID:'|':R.CUS TO NDB.CUST ELSE PRINT "SORRY"

    REPEAT