expect "\r\n." send -t after=100k "login 10,7\r"; continue expect "\r\n." send "r credir\r"; continue expect -ri "directory:" send "[10,7,IQLV30]\r"; continue expect -ri "directory:" at %TAP%0 -r tapes/iqlv30.tap; send "\3" ; continue expect "\r\n." send "ASSIGN MTA0 BACKUP\r"; continue expect "\r\n." send "SET DENS MTA0 800\r"; continue expect "\r\n." send "R BACKUP\r"; continue expect "\r\n/" send -t after=50000 "TAPE MTA0\r"; continue expect "\r\n/" send "DEN 800\r"; continue expect "\r\n/" send "FILES\r"; continue expect "\r\n/" send "INTER\r"; continue expect "\r\n/" send "RESTORE DSKB:[10,7,IQLV30]*.*=*.*\r"; continue expect "\r\n/" send "RESTORE DSKB:[10,7,IQLV30]*.*=*.*\r"; continue expect "\r\n/" send "RESTORE DSKB:[10,7,IQLV30]*.*=*.*\r"; continue expect "\r\n/" send "RESTORE DSKB:[10,7,IQLV30]*.*=*.*\r"; continue expect "\r\n/" send "RESTORE DSKB:[10,7,IQLV30]*.*=*.*\r"; continue expect "\r\n/" send "EXIT\r"; continue expect "\r\n." send "R SETSRC\r"; continue expect "\r\n*" send "CP [10,7,IQLV30]\r"; continue expect "\r\n*" send "\3"; continue ;NOW BUILD EACH IQL MODULE SEPARATELY expect "\r\n." send "MAKE BLD.CCL\r"; continue expect "\r\n*" send "I,-=IQA/S/N/P\r,-=IQD/S/N/P\r,-=IQE/S/N/P/R\r,-=IQES/S/N/P/R\r,-=IQCALL/S/N/P/R\r,-=IQL/S/N/P\r,-=IQM/S/N/P\r,-=IQU/S/N/P/R\r,-=IQSCH/S/N/P/R\r\33EX\33\33"; continue expect "\r\n." send "TECO IQA.CMD\r"; continue expect "\r\n*" send "S/LIB\33-3DISEARCH\33EX\33\33"; continue expect "\r\n." send "TECO IQD.CMD\r"; continue expect "\r\n*" send "S/LIB\33-3DISEARCH\33EX\33\33"; continue expect "\r\n." send "TECO IQE.CMD\r"; continue expect "\r\n*" send "S/LIB\33-3DISEARCH\33SLIBOL\33-5CIREL:\33S/LIB\33-3DISEARCH\33EX\33\33"; continue expect "\r\n." send "TECO IQL.CMD\r"; continue expect "\r\n*" send "S/LIB\33-3DISEARCH\33EX\33\33"; continue expect "\r\n." send "TECO IQM.CMD\r"; continue expect "\r\n*" send "S/LIB\33-3DISEARCH\33EX\33\33"; continue expect "\r\n." send "TECO IQU.CMD\r"; continue expect "\r\n*" send "S/LIB\33-3DISEARCH\33SLIBOL\33-5CIREL:\33S/LIB\33-3DISEARCH\33EX\33\33"; continue expect "\r\n." send "TECO IQSCH.CMD\r"; continue expect "\r\n*" send "S/LIB\33-3DISEARCH\33SLIBOL\33-5CIREL:\33S/LIB\33-3DISEARCH\33EX\33\33"; continue expect "\r\n." send "TECO IQA.CBL\r"; continue expect "\r\n*" send "N10504\33SPICT\33CDEX\33\33"; continue expect "\r\n." send "R MACRO\r"; continue expect "\r\n*" send "IQLVER=IQLVER\r"; continue expect "\r\n*" send "\3"; continue expect "\r\n." send "R COBOL\r"; continue expect "\r\n*" send "BLD@\r"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "IQA/SSAVE=@IQA.CMD/GO\33"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "IQD/SSAVE=@IQD.CMD/GO\33"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "IQL/SSAVE=@IQL.CMD/GO\33"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "IQM/SSAVE=@IQM.CMD/GO\33"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "IQU/SSAVE=@IQU.CMD/GO\33"; continue expect "\r\n." send "R LINK\r"; continue expect "\r\n*" send "IQSCH/SSAVE=@IQSCH.CMD/GO\33"; continue expect "\r\n." send "k/f\r"; continue