BRIZ 2.5.2.0

[GVP]

CmdLine Script BUGs fixed. (Waits additional key-press)

New feature: File scripting (*.BTSF) in File/Scripts menu.

Script keywords:
REM, SENDLINE, SENDCHAR, SENDFILE, SENDVAR,
LINESCRIPT, EXECSUB, EXECFN, GOSUB, GOTO,
LABEL, RETURN, STOP, EXECSUB@, EXECFN@,
INCLUDE, VERSION, DESCRIPTION, LINESCRIPT@


Example of script for Universe. This script creates files and installs
FlashGUI into the current account and then executes SE.

*****************************************
*Create_FlashGUI_Files_UV.BTSF*
*****************************************
VERSION BTSF-1/1
DESCRIPTION Creates FlashGUI files and Installs FlashGUI into the
current account
SENDLINE PTERM CASE NOINVERT

SENDLINE CREATE.FILE FG.BP 19
LINESCRIPT \s"FG.BP";\r
SENDLINE CREATE.FILE FG.BP.EXAMPLE 19
LINESCRIPT \s"FG.BP.EXA;\r
SENDLINE CREATE.FILE DT.EXAMPLE 19
LINESCRIPT \s"DT.EXAMPLE";\r
SENDLINE CREATE.FILE FG.CF.SE 19
LINESCRIPT \s"FG.CF.SE";\r
SENDLINE CREATE.FILE FG.DOC 19
LINESCRIPT \s"FG.DOC";\r
SENDLINE CREATE.FILE FG.RBIN 19
LINESCRIPT \s"FG.RBIN";\r
SENDLINE CREATE.FILE FG.TEMPLATES 19
LINESCRIPT \s"FG.TEMPLATES";\r
SENDLINE CREATE.FILE FG.TESTRUN 19
LINESCRIPT \s"FG.TESTRUN";\r

SENDLINE DELETE FG.BP TMPCP

SENDLINE ED FG.BP TMPCP
SENDLINE I PROGRAM TMPCP
SENDLINE I ECHO OFF
SENDLINE I DUMMY=@(0,0)
SENDLINE I INPUTCLEAR
SENDLINE I CRT "!BEGIN!"
SENDLINE I INPUT TMPS,30000:
SENDLINE I OPEN "FG.BP" TO MYFILE THEN
SENDLINE I WRITE TMPS ON MYFILE,"TMPBCP"
SENDLINE I CLOSE MYFILE
SENDLINE I END
SENDLINE I EXECUTE "BASIC FG.BP TMPBCP"
SENDLINE I EXECUTE "CATALOG FG.BP TMPBCP"
SENDLINE I CRT 'TMPBCP "$ScriptFolder$\FG.BP" TO FG.BP (FO'
SENDLINE I EXECUTE 'TMPBCP "$ScriptFolder$\FG.BP" TO FG.BP (FO'
SENDLINE I CRT 'TMPBCP "$ScriptFolder$\FG.BP.EXAMPLE" TO FG.BP.EXAMPLE
(FO'
SENDLINE I EXECUTE 'TMPBCP "$ScriptFolder$\FG.BP.EXAMPLE" TO
FG.BP.EXAMPLE (FO'
SENDLINE I CRT 'TMPBCP "$ScriptFolder$\DT.EXAMPLE" TO DT.EXAMPLE (FO'
SENDLINE I EXECUTE 'TMPBCP "$ScriptFolder$\DT.EXAMPLE" TO DT.EXAMPLE
(FO'
SENDLINE I CRT 'TMPBCP "$ScriptFolder$\FG.TEMPLATES" TO FG.TEMPLATES
(FO'
SENDLINE I EXECUTE 'TMPBCP "$ScriptFolder$\FG.TEMPLATES" TO
FG.TEMPLATES (FO'
SENDLINE I EXECUTE 'DELETE FG.BP TMPCP'
SENDLINE I CRT "!DONE1!"
SENDLINE I EXECUTE 'BASIC FG.BP *'
SENDLINE I CRT "!DONE2!"
SENDLINE I EXECUTE 'BASIC FG.BP.EXAMPLE *'
SENDLINE I CRT "!DONE3!"
SENDLINE I EXECUTE 'CATALOG FG.BP *'
SENDLINE I CRT "!DONE4!"
SENDLINE I EXECUTE 'CATALOG FG.BP.EXAMPLE *'
SENDLINE I ECHO ON
SENDLINE I CRT "!DONE!"
SENDLINE I END
SENDLINE SAVE
SENDLINE QUIT
LINESCRIPT \s!DONE!;\sQUIT;
SENDLINE BASIC FG.BP TMPCP
LINESCRIPT \sComplete;
SENDLINE CATALOG FG.BP TMPCP

LINESCRIPT TMPCP\r\s!BEGIN!;
SENDFILE CRAM;SVCPRG\BCPTOSRV
SENDCHAR 13
*LINESCRIPT \s!DONE1!;
*LINESCRIPT \s!DONE2!;
LINESCRIPT \s!DONE3!;
SENDCHAR 78
LINESCRIPT \s!DONE4!;
SENDCHAR 78
LINESCRIPT \s!DONE!;
SENDCHAR 13
SENDLINE se
**********************************



Regards,
Grigory