Huge data in INIT

,
1

I am creating a Local (LDA) for my program. I would like to create Header group and INITialise the values. My value to be INITialised is more than 25 chars long.

I am interested in doing it via LDA and not via program.

Is there any option for this to extend this to next line.

ex:

Local EDI903L Library EDI DBID 400 FNR 10
Command > +
I T L Name F Length Miscellaneous
Bot – -------------------------------- - ---------- ------------------------->
2 #FILLER7 A 1 INIT<‘,’>
2 #DATE-RAN-CREATED A 16 INIT<‘DATE-RAN-CREATED’>
2 #FILLER8 A 1 INIT<‘,’>
2 #RAN-QTY A 7 INIT<‘RAN-QTY’>
2 #FILLER9 A 1 INIT<‘,’>
2 #UPDATED-RAN-QTY A 15 INIT<‘UPDATED-RAN-QTY’>
2 #FILLER10 A 1 INIT<‘,’>
2 #ORIGINAL-REQD-DATE A 18 INIT<‘ORIGINAL-REQD-DATE’>
2 #FILLER11 A 1 INIT<‘,’>
2 #UPDATED-REQD-DATE A 17 INIT<‘UPDATED-REQD-DATE’>
2 #FILLER12 A 1 INIT<‘,’>
2 #ASN-QTY A 7 INIT<‘ASN-QTY’>
X 2 #FILLER13 A 1 INIT<‘,’>
Y 2 #CONTAINER-NO A 12 INIT<‘CONTAINER-NO’>
2 #FILLER14 A 1 INIT<‘,’>
E 2 #ACTUAL-PORT-ARRIVAL-DATE A 24 INIT<‘ACTUAL-PORT-ARRIVAL **
** -DATE’>

This last line is throwing error as the length of the data is big.

Kindly suggest a solution

2

I’m not sure I really get what the problem is ?!
The very basic issue appears to be this:
You have defined the variable #ACTUAL-PORT-ARRIVAL-DATE as (A24) and you try to initialize it with a value that is 25 chars long.
Is there any problems defining it as (A25) instead ?
Finn

3

Continuations work like this

1 #A (A70) INIT<'ABCDEF' -
                'GHIJK'>
4

still facing same issue
Please see below
Command > +
I T L Name F Length Miscellaneous

    • – -------------------------------- - ---------- ------------------------->
      2 #HDR-ORIGINAL-REQD-DATE A 18 INIT<‘ORIGINAL-REQD-DATE’>
      2 #HDR-FILLER11 A 1 INIT<‘,’>
      2 #HDR-UPDATED-REQD-DATE A 17 INIT<‘UPDATED-REQD-DATE’>
      2 #HDR-FILLER12 A 1 INIT<‘,’>
      2 #HDR-ASN-QTY A 7 INIT<‘ASN-QTY’>
      2 #HDR-FILLER13 A 1 INIT<‘,’>
      2 #HDR-CONTAINER-NO A 12 INIT<‘CONTAINER-NO’>
      2 #HDR-NDFILLER14 A 1 INIT<‘,’>
      E 2 #HDR-ACTUAL-PORT-ARRIVAL-DATE A 20 INIT<‘ACT-PORT-ARRIVAL’ - **
      ** ‘DATE’>
      2 #HDR-FILLER15 A 1 INIT<‘,’>
      2 #HDR-ACTUAL-DEPOT-DATE A 14 INIT<‘ACT-DEPOT-DATE’>
      2 #HDR-FILLER16 A 1 INIT<‘,’>
      2 #HDR-ACTUAL-DEVANNING-DATE A 14 INIT<‘ACT-DEVAN-DATE’>
      2 #HDR-FILLER17 A 1 INIT<‘,’>
      2 #HDR-ACTUAL-RECEIPT-DATE A 16 INIT<‘ACT-RECEIPT-DATE’>
      2 #HDR-FILLER18 A 1 INIT<‘,’>
5

Issue is with the size of data. In single line I am able to enter only 18 chars, but my data is of 24 chars length. How do i add that using INIT statement please
Is there any limit for handling this miscellaneous data?

6

Hehe - Good you are here Wolfgang

  • been so long since I worked with the MF data editor that this type of thing could be the issue :joy:
7

Any idea to resolve this?

8

Use Variable length fields and compress them together.

Eugene (Gene) Miklovich

ADABAS/NATURAL Systems Support and DBA

Cell: 916-202-7047

Normal Hours: 8am-4pm E.T.

Please call or text if assistance needed outside these hours.

9

The .E line command takes you to the Extended Field Definition Editing menu. There, use either S or F to initialize with as many characters as you need.

If the Miscellaneous field has an INIT clause, remove it before you attempt the .E.

10

Thank you all for your response.
Issue is now resolved

In Command line, use option ‘M +’ which will allow you to write extended value in the Miscellaneous field.