-GÒ ~ CLEAR.BCK€3À CLEAR.BCK.BACKUP/INTERCHANGE/LOG [.CLEAR] CLEAR.BCK/SAVE JUENGST €¦¼í §šV6.2 _SAPH1::   _VISKPC$DKA100: V6.2 ~ /*[ELCHWARE.PRELIMINARY.CLS.REF.CLEAR]CLEAR.CLD;1+,sC./€ 4.Ú-Qd=0Nî123KPWO56ŒS¿ §š7¦|m¿ §š89G€HŠªJ.!*********************************************.!* DCL command definitions of the verb CLEAR *.!*********************************************define verb CLEAR parameter P1 label=OPTION prompt="Clear what"% value(required,type=CLEAR_OPTION)define type CLEAR_OPTION keyword SCREEN syntax=CLEAR_SCREEN valuedefine syntax CLEAR_SCREEN image CLEAR_SCREEN qualifier DEVICE nonnegatable value(required,type=$device)ÿÿ/*[ELCHWARE.PRELIMINARY.CLS.REF.CLEAR]CLEAR.RNH;1+,cw5./€ 4O@-Qd=0Nî123KPWO56&k¤¿ §š7& É¿ §š89G€HŠªJ.!CLEAR help text.noflags.rm 77.lm 01 CLEAR.brFClears a screen and in later implementations perhaps other things like counters..skFormat.sk;.lm+2;.rm-2 CLEAR option .lm-2;.rm+2O.!-----------------------------------------------------------------------------2 SCREEN.rm-2.skKClears the screen of the character cell display or terminal emulator windowAowned by the process or another one specified by its device name..skFormat.sk;.lm+2;.rm-2 CLEAR SCREEN .lm-2;.rm+2 3 /DEVICE.rm-2 .lm+2;.rm-2.sk/DEVICE=device-name.sk;.lm-2;.rm+2> Controls the device name of the screen which will be cleared..sk3 Bugs.skOThe CLEAR SCREEN command without a qualifier works fine, but it does not returnan error status if it fails..skHIf one uses the device of another process, then the CLEAR SCREEN commandAwaits until it gets an input from the other process input device..sk 3 Examples.sk.literal1.$ CLEAR SCREEN .end literal.skIThe CLEAR SCREEN command in this example clears the screen of the currentprocess..sk.literal$2.$ SHOW USERS/FULL/NODE/INTERACTIVE9 OpenVMS User Processes at 26-OCT-1996 19:42:32.409 Total number of users = 1, number of processes = 2; Username Node Process Name PID Terminal9 ELCH VISKPA This is me==:-) 21E003A8 FTA43:9 ELCH VISKPA qay'be' Qapla' 21E00496 FTA45: $ CLEAR SCREEN/DEVICE=FTA45: .end literal.skJThe CLEAR SCREEN command in this example clears the screen with the device name FTA45:.ÿÿ6*[ELCHWARE.PRELIMINARY.CLS.REF.CLEAR]CLEAR_SCREEN.FOR;1+,pw;./€ 4Jf-Qd=0Nî123KPWO56&%€À §š7¦·À §š89G€HŠªJ PROGRAM CLEAR_SCREEN IMPLICIT NONEJ**************************************************************************J* This small program clears the screen of a character cell display or *J* terminal emulator window. An optional qualifier /DEVICE can be used to *J* specify the device name of the screen. *J* Author: Henry G. Jüngst (juengst@saph1.physik.uni-bonn.de), Oct. 1996 *J* This is public domain software. Use it at your own risk. *J********************************************************************************************** VMS definitions ******************** INCLUDE '($CLIMSGDEF)' INCLUDE '($SSDEF)' INCLUDE '(CLI$ROUTINES)' ******************************** * CLEAR_SCREEN local variables * ********************************% INTEGER MY_CLI_GET_VALUE_STATUS# INTEGER MY_CLI_PRESENT_STATUS# INTEGER MY_DEVICE_NAME_LENGTH* CHARACTER*1024 MY_DEVICE_NAME_STRING INTEGER MY_PASTEBOARD_ID ******************************** * Check for /DEVICE qualifier. * ********************************3 MY_CLI_PRESENT_STATUS=CLI$PRESENT('DEVICE')8 IF (MY_CLI_PRESENT_STATUS.EQ.CLI$_DEFAULTED .OR.4 & MY_CLI_PRESENT_STATUS.EQ.CLI$_PRESENT) THEND !*********************************************************D !* Take the output device name from the qualifier value. *D !*********************************************************9  MY_CLI_GET_VALUE_STATUS=CLI$GET_VALUE('DEVICE',7 & MY_DEVICE_NAME_STRING,MY_DEVICE_NAME_LENGTH)9 IF (MY_CLI_GET_VALUE_STATUS.NE.SS$_NORMAL) THEN8 CALL LIB$STOP(%VAL(MY_CLI_GET_VALUE_STATUS)) ENDIF; ELSE IF (MY_CLI_PRESENT_STATUS.EQ.CLI$_ABSENT) THEN! MY_DEVICE_NAME_LENGTH=0 ELSE4 CALL LIB$STOP(%VAL(MY_CLI_PRESENT_STATUS)) ENDIF7*******************************************************7* Create new pasteboard and let SMG clear the screen. *7*******************************************************, IF (MY_DEVICE_NAME_LENGTH.NE.0) THEN6 CALL SMG$CREATE_PASTEBOARD(MY_PASTEBOARD_ID,: & MY_DEVICE_NAME_STRING(1:MY_DEVICE_NAME_LENGTH),3 & %VAL(0),%VAL(0),%VAL(0),%VAL(0),%VAL(0)) ELSE6 CALL SMG$CREATE_PASTEBOARD(MY_PASTEBOARD_ID,; & %VAL(0),%VAL(0),%VAL(0),%VAL(0),%VAL(0),%VAL(0)) ENDIF*************************** Delete the pasteboard. ***************************6 CALL SMG$DELETE_PASTEBOARD(MY_PASTEBOARD_ID,0) ENDÿÿ1*[ELCHWARE.PRELIMINARY.CLS.REF.CLEAR]DESCRIP.MMS;1+,ëz./€ 4Ož-Qd=0Nî123KPWO56æôêÀ §š7F Á §š89G€HŠªJFFLAGS=- /EXTEND_SOURCE- /CONTINUATIONS=99- /CHECK- /NODEBUG- /OPTIMIZE- /NOLIST- /NOWARNINGSO!/WARNINGS=(ALL,NOULTRIX,NOVAXELN) --> required on VAX, does not work on AXP... ALL : CLEAR_SCREEN.EXE,CLEAR.HLB -@ WRITE SYS$OUTPUT "Done."#CLEAR_SCREEN.EXE : CLEAR_SCREEN.OBJA $(LINK)/NOTRACEBACK/EXECUTABLE=$(MMS$TARGET) $(MMS$SOURCE_LIST)CLEAR.HLP : CLEAR.RNH1 $RUNOFF/OUTPUT=$(MMS$TARGET) $(MMS$SOURCE_LIST)CLEAR.HLB : CLEAR.HLPCLEAN :M -@ IF "''F$SEARCH("CLEAR*.EXE")'".NES."" THEN DELETE/NOCONFIRM CLEAR*.EXE;*K -@ IF "''F$SEARCH("CLEAR.HLB")'".NES."" THEN DELETE/NOCONFIRM CLEAR.HLB;*K -@ IF "''F$SEARCH("CLEAR.HLP")'".NES."" THEN DELETE/NOCONFIRM CLEAR.HLP;*M -@ IF "''F$SEARCH("CLEAR*.OBJ")'".NES."" THEN DELETE/NOCONFIRM CLEAR*.OBJ;*INSTALL_SYSTEM : SET SYMBOL/SCOPE=NOGLOBAL. SET PROCESS/PRIVILEGE=(BYPASS,SYSPRV,CMKRNL)/ COPY/LOG/PROTECTION=(S:RE,O:RWED,G:RE,W:RE) -' CLEAR_SCREEN.EXE SYS$COMMON:[SYSEXE]/ PURGE/LOG SYS$COMMON:[SYSEXE]CLEAR_SCREEN.EXE1 LIBRARY/HELP/REPLACE/LOG SYS$HELP:HELPLIB CLEARG COPY/LOG/PROTECTION=(S:R,O:RWD,G:R,W:R) CLEAR.CLD SYS$COMMON:[SYSLIB]( PURGE/LOG SYS$COMMON:[SYSLIB]CLEAR.CLD5 SET COMMAND/TABLE=SYS$COMMON:[SYSLIB]DCLTABLES.EXE-? /OUTPUT=SYS$COMMON:[SYSLIB]DCLTABLES.EXE SYS$SHARE:CLEAR.CLD) INSTALL REPLACE SYS$SHARE:DCLTABLES.EXEO @ WRITE SYS$OUTPUT "New DCL table installed on the local host. Do not forget"I @ WRITE SYS$OUTPUT "to install the new DCL table in the whole cluster:" @ WRITE SYS$OUTPUT " $SYSMAN"0 @ WRITE SYS$OUTPUT " SET ENVIRONMENT/CLUSTER"C @ WRITE SYS$OUTPUT " DO INSTALL REPLACE SYS$SHARE:DCLTABLES.EXE"ÿÿ€YÍ6Ó~ CLEAR.BCKß–À CLEAR.BCK.BACKUP/INTERCHANGE/LOG [.CLEAR] CLEAR.BCK/SAVE JUENGST €¦¼í §šV6.2 _SAPH1::   _VISKPC$DKA100: V6.2 ~ /*[ELCHWARE.PRELIMINARY.CLS.REF.CLEAR]CLEAR.CLD;1+,sC./€ 4.Ú-Qd=0Nî123KPWO56ŒS¿ §š7¦|m¿ §š89G€HŠªJ.!*********************************************.!* DCL command definitions of the verb CLEAR *.!*********************************************define verb CLEAR parameter P1 label=OPTION prompt="Clear what"% value(required,type=CLEAR_OPTION)define type CLEAR_OPTION keyword SCREEN syntax=CLEAR_SCREEN valuedefine syntax CLEAR_SCREEN image CLEAR_SCREEN qualifier DEVICE nonnegatable value(required,type=$device)ÿÿ/*[ELCHWARE.PRELIMINARY.CLS.REF.CLEAR]CLEAR.RNH;1+,cw5./€ 4O@-Qd=0Nî123KPWO56&k¤¿ §š7& É¿ §š89G€HŠªJ.!CLEAR help text.noflags.rm 77.lm 01 CLEAR.brFClears a screen and in later implementations perhaps other things like counters..skFormat.sk;.lm+2;.rm-2 CLEAR option .lm-2;.rm+2O.!-----------------------------------------------------------------------------2 SCREEN.rm-2.skKClears the screen of the character cell display or terminal emulator windowAowned by the process or another one specified by its device name..skFormat.sk;.lm+2;.rm-2 CLEAR SCREEN .lm-2;.rm+2 3 /DEVICE.rm-2 .lm+2;.rm-2.sk/DEVICE=device-name.sk;.lm-2;.rm+2> Controls the device name of the screen which will be cleared..sk3 Bugs.skOThe CLEAR SCREEN command without a qualifier works fine, but it does not returnan error status if it fails..skHIf one uses the device of another process, then the CLEAR SCREEN commandAwaits until it gets an input from the other process input device..sk 3 Examples.sk.literal1.$ CLEAR SCREEN .end literal.skIThe CLEAR SCREEN command in this example clears the screen of the currentprocess..sk.literal$2.$ SHOW USERS/FULL/NODE/INTERACTIVE9 OpenVMS User Processes at 26-OCT-1996 19:42:32.409 Total number of users = 1, number of processes = 2; Username Node Process Name PID Terminal9 ELCH VISKPA This is me==:-) 21E003A8 FTA43:9 ELCH VISKPA qay'be' Qapla' 21E00496 FTA45: $ CLEAR SCREEN/DEVICE=FTA45: .end literal.skJThe CLEAR SCREEN command in this example clears the screen with the device name FTA45:.ÿÿ6*[ELCHWARE.PRELIMINARY.CLS.REF.CLEAR]CLEAR_SCREEN.FOR;1+,pw;./€ 4Jf-Qd=0Nî123KPWO56&%€À §š7¦·À §š89G€HŠªJ PROGRAM CLEAR_SCREEN IMPLICIT NONEJ**************************************************************************J* This small program clears the screen of a character cell display or *J* terminal emulator window. An optional qualifier /DEVICE can be used to *J* specify the device name of the screen. *J* Author: Henry G. Jüngst (juengst@saph1.physik.uni-bonn.de), Oct. 1996 *J* This is public domain software. Use it at your own risk. *J********************************************************************************************** VMS definitions ******************** INCLUDE '($CLIMSGDEF)' INCLUDE '($SSDEF)' INCLUDE '(CLI$ROUTINES)' ******************************** * CLEAR_SCREEN local variables * ********************************% INTEGER MY_CLI_GET_VALUE_STATUS# INTEGER MY_CLI_PRESENT_STATUS# INTEGER MY_DEVICE_NAME_LENGTH* CHARACTER*1024 MY_DEVICE_NAME_STRING INTEGER MY_PASTEBOARD_ID ******************************** * Check for /DEVICE qualifier. * ********************************3 MY_CLI_PRESENT_STATUS=CLI$PRESENT('DEVICE')8 IF (MY_CLI_PRESENT_STATUS.EQ.CLI$_DEFAULTED .OR.4 & MY_CLI_PRESENT_STATUS.EQ.CLI$_PRESENT) THEND !*********************************************************D !* Take the output device name from the qualifier value. *D !*********************************************************9  MY_CLI_GET_VALUE_STATUS=CLI$GET_VALUE('DEVICE',7 & MY_DEVICE_NAME_STRING,MY_DEVICE_NAME_LENGTH)9 IF (MY_CLI_GET_VALUE_STATUS.NE.SS$_NORMAL) THEN8 CALL LIB$STOP(%VAL(MY_CLI_GET_VALUE_STATUS)) ENDIF; ELSE IF (MY_CLI_PRESENT_STATUS.EQ.CLI$_ABSENT) THEN! MY_DEVICE_NAME_LENGTH=0 ELSE4 CALL LIB$STOP(%VAL(MY_CLI_PRESENT_STATUS)) ENDIF7*******************************************************7* Create new pasteboard and let SMG clear the screen. *7*******************************************************, IF (MY_DEVICE_NAME_LENGTH.NE.0) THEN6 CALL SMG$CREATE_PASTEBOARD(MY_PASTEBOARD_ID,: & MY_DEVICE_NAME_STRING(1:MY_DEVICE_NAME_LENGTH),3 & %VAL(0),%VAL(0),%VAL(0),%VAL(0),%VAL(0)) ELSE6 CALL SMG$CREATE_PASTEBOARD(MY_PASTEBOARD_ID,; & %VAL(0),%VAL(0),%VAL(0),%VAL(0),%VAL(0),%VAL(0)) ENDIF*************************** Delete the pasteboard. ***************************6 CALL SMG$DELETE_PASTEBOARD(MY_PASTEBOARD_ID,0) ENDÿÿ1*[ELCHWARE.PRELIMINARY.CLS.REF.CLEAR]DESCRIP.MMS;1+,ëz./€ 4Ož-Qd=0Nî123KPWO56æôêÀ §š7F Á §š89G€HŠªJFFLAGS=- /EXTEND_SOURCE- /CONTINUATIONS=99- /CHECK- /NODEBUG- /OPTIMIZE- /NOLIST- /NOWARNINGSO!/WARNINGS=(ALL,NOULTRIX,NOVAXELN) --> required on VAX, does not work on AXP... ALL : CLEAR_SCREEN.EXE,CLEAR.HLB -@ WRITE SYS$OUTPUT "Done."#CLEAR_SCREEN.EXE : CLEAR_SCREEN.OBJA $(LINK)/NOTRACEBACK/EXECUTABLE=$(MMS$TARGET) $(MMS$SOURCE_LIST)CLEAR.HLP : CLEAR.RNH1 $RUNOFF/OUTPUT=$(MMS$TARGET) $(MMS$SOURCE_LIST)CLEAR.HLB : CLEAR.HLPCLEAN :M -@ IF "''F$SEARCH("CLEAR*.EXE")'".NES."" THEN DELETE/NOCONFIRM CLEAR*.EXE;*K -@ IF "''F$SEARCH("CLEAR.HLB")'".NES."" THEN DELETE/NOCONFIRM CLEAR.HLB;*K -@ IF "''F$SEARCH("CLEAR.HLP")'".NES."" THEN DELETE/NOCONFIRM CLEAR.HLP;*M -@ IF "''F$SEARCH("CLEAR*.OBJ")'".NES."" THEN DELETE/NOCONFIRM CLEAR*.OBJ;*INSTALL_SYSTEM : SET SYMBOL/SCOPE=NOGLOBAL. SET PROCESS/PRIVILEGE=(BYPASS,SYSPRV,CMKRNL)/ COPY/LOG/PROTECTION=(S:RE,O:RWED,G:RE,W:RE) -' CLEAR_SCREEN.EXE SYS$COMMON:[SYSEXE]/ PURGE/LOG SYS$COMMON:[SYSEXE]CLEAR_SCREEN.EXE1 LIBRARY/HELP/REPLACE/LOG SYS$HELP:HELPLIB CLEARG COPY/LOG/PROTECTION=(S:R,O:RWD,G:R,W:R) CLEAR.CLD SYS$COMMON:[SYSLIB]( PURGE/LOG SYS$COMMON:[SYSLIB]CLEAR.CLD5 SET COMMAND/TABLE=SYS$COMMON:[SYSLIB]DCLTABLES.EXE-? /OUTPUT=SYS$COMMON:[SYSLIB]DCLTABLES.EXE SYS$SHARE:CLEAR.CLD) INSTALL REPLACE SYS$SHARE:DCLTABLES.EXEO @ WRITE SYS$OUTPUT "New DCL table installed on the local host. Do not forget"I @ WRITE SYS$OUTPUT "to install the new DCL table in the whole cluster:" @ WRITE SYS$OUTPUT " $SYSMAN"0 @ WRITE SYS$OUTPUT " SET ENVIRONMENT/CLUSTER"C @ WRITE SYS$OUTPUT " DO INSTALL REPLACE SYS$SHARE:DCLTABLES.EXE"ÿÿ€Y