BOBW: +
CLEAR
WRITE WELCOME TO BOB'S WORLD
WRITE
WRITE OPTIONS:
WRITE  VLOAD
WRITE  GSIMOVE1 TEST
WRITE  GSIMOVER TEST
WRITE  GEOLFIND TEST
WRITE  EXIT
WRITENR PLEASE MAKE YOUR SELECTION NOW
READ &ANSWER
IF &ANSWER = VLOAD THEN GOTO VLOAD
IF &ANSWER = GSIMOVER THEN GOTO MOVER
IF &ANSWER = GSIMOVE1 THEN GOTO MOVE1
IF &ANSWER = GEOLFIND THEN GOTO GFIND
ELSE END 
VLOAD: + 
  CLEAR
  WRITENR ENTER VSAM DATASET NAME (BOB.VSAM)
  READ &VNAME
  IF &VNAME =  '' THEN &VNAME = 'VGI228.BOB.VSAM'
  WRITENR ENTER FLAT DATASET NAME (BOB.FLAT.R10)
  READ &FNAME
  IF &FNAME = '' THEN &FNAME = 'VGI228.BOB.FLAT.R10'
  ALLOC F(VDATA) DA(&VNAME)
  ALLOC F(FDATA) DA(&FNAME)
  CALL BOB.LOAD(VLOAD)
  FREE  F(VDATA)
  FREE  F(FDATA)
  WRITE **  DONE **
  END
MOVE1: + 
  CLEAR
  ALLOC F(RECIN) DA(IMPORT.DATA.   )
  EXEC MAN SESS(D6) TSP(DISBLKL1)
  FREE  F(RECIN)
  END
MOVER: + 
  CLEAR
  ALLOC F(RECIN) DA(IMPORT.DATA.   )
  EXEC MAN SESS(D6) TSP(DISBLKLD)
  FREE  F(RECIN)
  END
GMOVE: + 
  CLEAR
  ALLOC
  ALLOC
  EXEC MAN SESS(D6) TSP(
  FREE
  FREE
  END