$ INQUIRE/GLOBAL SP "Start Position-1 :
$ INQUIRE/GLOBAL SP_LENGTH "Field Length-1 :

$ INQUIRE/GLOBAL EP "Start Position-2 :
$ INQUIRE/GLOBAL EP_LENGTH "Field Length-2 :

$ OPEN/READ INPUT_FILE store.mst;1
$ READ_LOOP:
$ READ/END_OF_FILE=ENDIT INPUT_FILE NUM
$ FIRST_CHAR = F$EXTRACT(&SP,&SP_LENGTH,NUM)
$ if ( EP .EQS. "" )
$ then
$      write sys$output FIRST_CHAR
$ else
$      SECOND_CHAR = F$EXTRACT(&EP,&EP_LENGTH,NUM)
$      WRITE SYS$OUTPUT FIRST_CHAR," | ", SECOND_CHAR
$ endif
$ GOTO READ_LOOP
$ ENDIT:
$    CLOSE INPUT_FILE
$ EXIT
