$ SAY "-------------------------------------------------------"
$ SAY "Script to Validate & Extract Data from Store.mst;1 file"
$ SAY "Fyi : State Code field starts at 127 length 2.
$ SAY "Date:11/29/2004
$ SAY "-------------------------------------------------------"

$ F1:
$ INQUIRE/GLOBAL SP "Start Position-1 :
$ if (f$length(SP) .eqs. 0 )
$ then
$    goto F1
$ endif

$ F1_Length:
$ INQUIRE/GLOBAL SP_LENGTH "Field Length-1 :
$ IF (f$length(SP_LENGTH) .eqs. 0 )
$ then
$    goto F1_Length
$ endif

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

$ state_code:
$ INQUIRE/GLOBAL STATE "Enter State Code :
$ if ( f$length(STATE) .nes. 2 )
$ then
$     say "State Code has to be 2 Characters only"
$     goto state_code
$ endif

$ count = 0

$ OPEN/READ INPUT_FILE store.mst;1
$ READ_LOOP:
$ READ/END_OF_FILE=ENDIT INPUT_FILE NUM
$ StateCode = f$extract(&SP,2,NUM)

$ if ( StateCode .nes. STATE )
$ then
$    goto READ_LOOP
$ endif

$ if ( f$extract(129,1,NUM) .eqs. " " )
$ then
$    goto READ_LOOP
$ endif

$ 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
$ count = count + 1
$ GOTO READ_LOOP
$ ENDIT:
$    CLOSE INPUT_FILE
$ write sys$output "No of records in output ", count
$ EXIT
