**COMPRESSED** **COMPRESSED** **COMPRESSED** **COMPRESSED** **COMPRESSED********LIB CONTROL WIN_95¼4.10¼‚SAS6.12¼ªC607WORK¼‚COLORISE OBJECT COUNT 2¼‰MAX LRECL =156¼’OBJECT CONTROL AFTER¼‚SCL¼„TRY_ME.SCL after using coloriser¼Œ113¼‰4096¼‡¼ 0¼ SPAN CONTROL 204¼46¼…1¼†46¼‰NL¼ˆ46¼Žÿÿ¼¼¼¼¼¼¼ ÿÿÿÿÿÿ¼ SPAN CONTROL 204¼36¼…1¼†36¼ŠL¼ˆ36¼Ž_SCLD1_L¼I¹I¼P1¼ªSPAN CONTROL 204¼25¼…1¼†25¼ŠL¼ˆ25¼ŽRELEASEEXESIZEFLAGS¼µSPAN CONTROL 54¼‚128¼„2¼†48¼ŠL¼‡128¼Ž¼¼HALFHALF¼ÿÿÿÿÿÿÿÿ¼ÿÿÿÿ7 10 13 16 19 22¼Ž¼ÎSPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž/**** TRY_ME.SCL¼¼<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž * Purpose:¼Test entry for colourising tool. Try it and see!¼Ž<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž *¼Ê<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž *¼Ê<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž **************************************************************************/ <<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž/*** define a macro ***/¼³<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž%macro freelist(listname);¼²(((((($$$$$$$$$$$$$$$$$$$$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž %* code to conditionally delete list if it exists;¼˜<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž if listlen(&LISTNAME) ge 0 then rc=dellist(&LISTNAME,'Y');¼$$$$$$$$$$$$$(((((((((($$$$$$$$$$$$$$$$$$$$$$(((((((((($$<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž%mend freelist;¼½((((($$$$$$$$$$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž* other definitions;¼¸<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žlength in_line out_line token $ 200; * text handling fields;¼$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žlength context $ 8; * current context - submit block or normal;¼Œ$$$$$$$$$$$$$$$$$$$<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žlength qmode¼$ 8; * state of handling for quoted strings¼‚;¼Œ$$$$$$$$$$$$$$$$$$$<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žlength smode¼$ 8; * state of handling for symbolic reference;¼Œ$$$$$$$$$$$$$$$$$$$<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž* avoid compile errors;¼µ<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žrc=rc;¼Æ$$$$$$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž* now some code;¼¼<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼ŽINIT:;¼Æ$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž /*¼É<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž * Initial processing¼¶<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž */¼È<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž * some control parameters;¼°<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž temp_source = upcase(symgetc('TEMPSRCE'));¼ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž capitalise = upcase(symgetc('MACCAPS'));¼¡$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž if not (capitalise in ('SYMBOLS','MACROS','BOTH',' ')) then do;¼‹$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼ƒput 'Note: Unknown type for MACCAPS: ' capitalise;¼•$$$$$$$$$$$$$$$$$$$$<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼ƒput '¼„No capitalisation will be done.';¼›$$$$$$$$$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž end;¼Æ$$$$$$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žreturn;¼Ç¼‚$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼ŽMAIN:;¼Æ$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž /*¼É<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž * Sample submit block¼µ<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž */¼È<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž submit continue;¼»<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼ƒ/* a submitted comment - will not be coloured */¼—<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼„%let ds=work._all_;¼³((((((((((<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼„title "Contents of &DS";¼®((((<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼„proc contents data=&DS;¼¯(((<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼„run;¼Â<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž endsubmit;¼Á<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žreturn;¼Ç¼‚$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼ŽENDUP: /* sample of a method routine */¼¤<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼method rc 8 message $;¼³$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž * some method code;¼¸<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž rc=rc;¼Å$$$$$$$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žendmethod;¼Ä¼…$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žreturn;¼Ç¼‚$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚End of Object¼ÁOBJECT CONTROL TRY_ME¼SCL¼„Some SCL to test the tool on¼113¼‰4096¼07/22/99¼0¼ SPAN CONTROL 204¼46¼…1¼†46¼‰NL¼ˆ46¼Žÿÿ¼¼¼¼¼¼¼ ÿÿÿÿÿÿ¼ SPAN CONTROL 204¼36¼…1¼†36¼ŠL¼ˆ36¼Ž_SCLD1_L¼I¹I¼P1¼ªSPAN CONTROL 204¼25¼…1¼†25¼ŠL¼ˆ25¼ŽRELEASEEXESIZEFLAGS¼µSPAN CONTROL 54¼‚128¼„2¼†48¼ŠL¼‡128¼Ž¼¼HALFHALF¼ÿÿÿÿÿÿÿÿ¼ÿÿÿÿ7 10 13 16 19 22¼Ž¼ÎSPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž/**** TRY_ME.SCL¼¼$$$$$$<<<<<<$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž * Purpose:¼Test entry for colourising tool. Try it and see!¼Ž$$$$$$$$$$$$$$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<$$$<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž *¼Ê$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž *¼Ê$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž **************************************************************************/ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž/*** define a macro ***/¼³$$$$$<<<<<<<<$$$$$$$$$$$$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž%macro freelist(listname);¼²$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž %* code to conditionally delete list if it exists;¼˜$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž if listlen(&LISTNAME) ge 0 then rc=dellist(&LISTNAME,'Y');¼$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž%mend freelist;¼½$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž* other definitions;¼¸$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žlength in_line out_line token $ 200; * text handling fields;¼$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žlength context $ 8; * current context - submit block or normal;¼Œ$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žlength qmode¼$ 8; * state of handling for quoted strings¼‚;¼Œ$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žlength smode¼$ 8; * state of handling for symbolic reference;¼Œ$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž* avoid compile errors;¼µ$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žrc=rc;¼Æ$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž* now some code;¼¼<<<<<<<<<<<<<<<<$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼ŽINIT:;¼Æ$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž /*¼É$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž * Initial processing¼¶$$$$<<<<<<<<<<<<<<<<<<$$$$$$$$$$$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž */¼È$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž * some control parameters;¼°$$$$<<<<$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž temp_source = upcase(symgetc('TEMPSRCE'));¼ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž capitalise = upcase(symgetc('MACCAPS'));¼¡$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž if not (capitalise in ('SYMBOLS','MACROS','BOTH',' ')) then do;¼‹$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼ƒput 'Note: Unknown type for MACCAPS: ' capitalise;¼•$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼ƒput '¼„No capitalisation will be done.';¼›$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž end;¼Æ$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žreturn;¼Å$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼ŽMAIN:;¼Æ$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž /*¼É$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž * Sample submit block¼µ$$$$<<<<<<<<<<<<<<<<<<<$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž */¼È$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì$<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž submit continue;¼»<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼ƒ/* a submitted comment - will not be coloured */¼—<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼„%let ds=work._all_;¼³<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼„title "Contents of &ds";¼®<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼„proc contents data=&ds;¼¯<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼„run;¼Â<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž endsubmit;¼Á<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žreturn;¼Å<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼Ì<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žendup: /* sample of a method routine */¼¤<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž¼method rc 8 message $;¼³<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž * some method code;¼¸<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Ž rc=rc;¼Å<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žendmethod;¼Â<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚SPAN CONTROL 16¼‚156¼„2¼†76¼ŠL¼‡156¼Žreturn;¼Å<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<¼‚End of Object¼Á