MACRO 02000020 &NAME STCLEAR &STRING= PROTOTYPE 04000020 .********************************************************************** 06000020 .* * 08000020 .*RELEASE 23 DELETIONS * 10000020 .* * 12000020 .*RELEASE 22 DELETIONS * 14000020 .* * 16000020 .*RELEASE 21 DELETIONS * 18000020 .* * 20000020 .*STATUS - CHANGE LEVEL 000 * 22000020 .* * 24000020 .*NAME - STCLEAR * 26000020 .* * 28000020 .*FUNCTION - THIS MACRO IS USED TO SPECIFY THE CHARACTER STRING THAT * 30000020 .* WILL BE USED TO REQUEST THAT A DISPLAY STATION SCREEN CAN BE * 32000020 .* ERASED. * 34000020 .* * 36000020 .* THE MACRO PROTOTYPE IS ABOVE * 38000020 .* * 40000020 .* THE STANDARD FORM OF THE EXPANSION IS BELOW * 42000020 .*NAME LA 1,CHAR PUT ADDR OF CHAR STRING IN REG* 44000020 .* LA 0,16 LOAD ENTRY CODE * 46000020 .* SLL 0,24 PUT ENTRY CODE IN HIGH ORDER * 48000020 .* SVC 94 ISSUE STATUS SVC * 50000020 .* * 52000020 .********************************************************************** 54000020 AIF ('&STRING' EQ '').ERROR 56000020 AIF ('&STRING' EQ '0').ZERO 58000020 AIF ('&STRING'(1,1) EQ '(').REG 60000020 &NAME LA 1,&STRING . PUT ADDR OF CHAR STRING IN REG 62000020 AGO .ENTRYCD . 64000020 .REG ANOP 66000020 &NAME LR 1,&STRING . PUT ADDR OF CHAR STRING IN REG 68000020 AGO .ENTRYCD 70000020 .ZERO ANOP 72000020 &NAME SR 1,1 . ZERO OUT REG 74000020 .ENTRYCD LA 0,16 . LOAD ENTRY CODE 76000020 SLL 0,24 . PUT ABOVE IN HIGH ORDER 78000020 SVC 94 . ISSUE STATUS SVC 80000020 AGO .EXIT 82000020 .ERROR IHBERMAC 24 84000020 .EXIT ANOP 86000020 MEND 88000020