create new tag
view all tags

Converting Arrays to Scalar Data

At present, only the 'CNV TEXT' stmt addresses an Alpha array as if it were a single scalar variable. (Unfortunately, it also adjusts for periods, insuring no more than one space after a period.)

       *         initialize an Alpha Array:
       SET      --- TEMP 1                     =
       CNV TEXT OPT WORK TEST ARRAY        000 =  --- TEMP 1

You can also accomplish the "Array to Scalar" assignment, by setting up a Working Storage type file, with a GROUP construction like the following:

100     WS GROUP1              GROUP HEADER   1
200     WS A50                 ALPHA          1   X(50)
300     WS GROUP1 END          GROUP TRAILER  1
400     WS GROUP2              GROUP HEADER   1
500     WS A1 50               ALPHA          1   X(1) Oc 50
600     WS GROUP2 END          GROUP TRAILER  1

... then perform the assignment as follows:

      SET      PAT WS A50                     =      XYZ
      SET      PAT WS GROUP2                  =  PAT WS GROUP1

... resulting in:

Appl Field Name             Occ  Field Value
PAT  WS A1 50               001  X
PAT  WS A1 50               002  Y
PAT  WS A1 50               003  Z

Don't forget the ability to search for individual characters (ex: commas or quotes) in ILF code, by means of the IF INCLUDES ('IF' verb with 'IN' operator) or Regular Expresssions ('IF' verb with 'RS' or 'RI' operator).


Read what other users have said about this page or add your own comments.

Edit | Attach | Watch | Print version | History: r2 < r1 | Backlinks | Raw View | Raw edit | More topic actions
Topic revision: r2 - 2016-02-17 - JeanNeron
This site is powered by the TWiki collaboration platform Powered by PerlCopyright © 2008-2021 by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding TWiki? Send feedback