$ ! -----------------------------------------------------
$ ! Script   : Readvar.com
$ ! Function : String concatenation
$ ! Date     : 11/03/2004
$ ! Author   : Ramki
$ ! -----------------------------------------------------

$ INQUIRE/GLOBAL FF "Total Number of Strings to Concatenate

$ var = 1
$ SP1 = ""
$ Loop:
$ IF var .GT. FF then goto endit
$ INQUIRE/GLOBAL SP "String 
$ !show symbol SP  
$ SP1 = SP1 + " " + SP 
$ var = var + 1
$ goto loop
$ endit:
$ show symbol SP1
$ exit

$ !Process String and extract fields.
$ !---------------------------------
$ !Start_Rec_Position = F$EXTRACT(0,1,SP1)
$ !show symbol Start_Rec_Position
$ !exit

$ !OPEN/READ INPUT_FILE NDUMP_CUST_ACCT.DAT;2
$ !READ_LOOP:
$ !READ/END_OF_FILE=ENDIT INPUT_FILE NUM
$ !FIRST_CHAR = F$EXTRACT(&SP,&SP_LENGTH,NUM)
$ ! WRITE SYS$OUTPUT FIRST_CHAR - If one field in each line
$ !SECOND_CHAR = F$EXTRACT(&EP,&EP_LENGTH,NUM)
$ !WRITE SYS$OUTPUT FIRST_CHAR," | ", SECOND_CHAR
$ !GOTO READ_LOOP
$ !ENDIT:
$ !   CLOSE INPUT_FILE
$ !EXIT
