** * PROGRAM PARMQUAL * * This program is designed to be used inside command procedures. * It parses the arguments passed to the procedure (the DCL Symbols * P1 through P8), which are assumed to be in the format of DCL * command parameters and qualifiers. The local DCL symbols: * * PARM1, PARM2, ... * * QUAL1, QUAL2, ... * QVAL1, QVAL2, ... * * QUALS * * are set to the values derived from the arguments. The last * symbol in each sequence is set to a null value, to signal that * it is the last. * * Example: * * Suppose that XXX.COM is: $ RUN PARMQUAL * $ SHOW SYM /ALL /LOCAL * * And we invoke XXX as: $ @XXX AAA/BBB /CCC=XXX/DDD EEE * * Then the symbols are: PARM1 = "AAA" * PARM2 = "EEE" * PARM3 = "" * QUAL1 = "/BBB" * QUAL2 = "/CCC" * QUAL3 = "/DDD" * QUAL4 = "" * QVAL1 = "" * QVAL2 = "XXX" * QVAL3 = "" * QVAL4 = "" * QUALS = "/BBB/CCC/DDD" * * * 30 Sep 1986 ajout des valeurs des qualifiers (QVAL) * B. Perrot, IPN Orsay * * 17 Apr 1984 Fix problems with following cases: * $ PROC AAA /BBB="/CCC" * $ PROC "" BBB * * * Alan L. Zirkle Naval Surface Weapons Center * Code N41 * 6 March 1984 Dahlgren, Virginia 22448 *