Title : Macro to allow multiple HDAM Randomising Parameters Submitter : Ray Folwell Rolls Royce plc PO Box 31 Derby DE2 8BJ Phone : 0332-249814 Release Submitter Details - Y Text :- This macro has been kindly supplied by Ray as a followup to the talk he gave at a meeting of the UK GUIDE IMS Working Group at Manchester in September 1992. For further documentation see his foils that were distributed with the minutes of that meeting. This entry contains 1 files HDDBD.MAC - The macro which generates the relevant DBDGEN macro depending on which system ID is passed via SYSPARM. HDDBD.MAC :- MACRO 00010000 HDDBD &NAME=,&ACCESS=,&RMNAME= 00020000 .* WRAP ROUND TO IMS DBD MACRO TO SELECT RMNAME PARMS ACCORDING TO 00030000 .* OF SYSPARM 00040000 AIF ('&ACCESS(1)' EQ 'HDAM').NEXT1 ACCESS OK? 00050002 MNOTE 8,'HDDBD010 - ACCESS MUST BE HDAM' 00060013 MEXIT 00070001 .NEXT1 AIF ('&SYSPARM' NE '').NEXT2 SYSPARM SUPPLIED 00090001 MNOTE 8,'HDDBD020 - ''SYSPARM'' NOT SUPPLIED' 00100001 MEXIT 00110001 .NEXT2 ANOP 00120001 &NR SETA N'&RMNAME NO OF RMNAME 00130001 AIF (&NR LT 2).ERR3 00140001 AIF (&NR/2*2 EQ &NR).NEXT3 IS IT EVEN? 00150001 .ERR3 MNOTE 8,'HDDBD030 - RMNAME OPERAND INVALID' 00160001 MEXIT 00161003 .NEXT3 ANOP 00170001 &IR SETA 1 00180001 .LOOP1 AIF ('&RMNAME(&IR)' EQ '&SYSPARM').GEN MATCH FOUND 00190001 &IR SETA &IR+2 00200001 AIF (&IR LT &NR).LOOP1 00210001 MNOTE 8,'HDDBD040 - NO RMNAME FOUND FOR ''&SYSPARM''' 00220003 MEXIT 00230001 .GEN ANOP 00240001 &IR SETA &IR+1 00240111 MNOTE *,'* * * * * * * * * * * * * * * * * * * * * * * * * *' 00240210 MNOTE *,'* GENERATED DBD STATEMENT FOR ''&SYSPARM'' SYSTEM ' 00240310 MNOTE *,'* DBD NAME=&NAME,ACCESS=&ACCESS,' 00241012 MNOTE *,'* RMNAME=&RMNAME(&IR)' 00242011 MNOTE *,'* * * * * * * * * * * * * * * * * * * * * * * * * *' 00243010 DBD NAME=&NAME,ACCESS=&ACCESS,RMNAME=&RMNAME(&IR) 00244011 MEND 01230000