MACRO 02000000 JHEAD &TITLE,&PHASEID=,&LEVEL= 04000000 GBLA &ASMLEV 06000000 GBLC &COMPNM,&ASMID 08000000 LCLA &I,&J 10000000 LCLC &X(10) 12000000 .* 14000000 .* GENERATES A TITLE STATEMENT AND A STATUS MNOTE 14050000 .* IN THE PROLOUGE TO AN MODULE. 14100000 AIF (K'&TITLE GT 47).ERR1 TOO BIG FOR ONE TITLE CARD 16000000 AIF (K'&PHASEID NE 3).ERR1 IT MUST BE THREE IN LENGTH 18000000 AIF (K'&LEVEL EQ 0).ERR1 IT MUST BE PRESENT 20000000 .* 22000000 &ASMID SETC '&PHASEID' PUT PHASEID IN GBLC 24000000 &ASMLEV SETA &LEVEL PUT LEVEL IN GBLA 26000000 .* 28000000 &COMPNM SETC 'IFN' SYSTEM INDEPENDENT NAME 30000000 AIF ('&ASMID'(2,1) NE '0').SKIP 32000000 &COMPNM SETC 'IFO' SYSTEM DEPENDENT NAME 34000000 .SKIP ANOP 36000000 .* 38000000 &I SETA 1 NOW TRANSFER TITLE TO VARIABLE 40000000 &J SETA 2 42000000 .LPA ANOP 44000000 AIF (K'&TITLE EQ &J).NXA 44600000 AIF (K'&TITLE LT &J+8).LPA1 45200000 &X(&I) SETC '&TITLE'(&J,8) 46000000 &I SETA &I+1 48000000 &J SETA &J+8 50000000 AGO .LPA 52000000 .LPA1 ANOP 54000000 &X(&I) SETC '&TITLE'(&J,K'&TITLE-&J) 56000000 .NXA ANOP 58000000 .* 60000000 &ASMID TITLE '&COMPNM&ASMID - &X(1)&X(2)&X(3)&X(4)&X(5)&X(6)' 62000000 .* 64000000 MNOTE *,'STATUS--CHANGE LEVEL &LEVEL' 66000000 MEXIT 68000000 .* 70000000 .ERR1 MNOTE 8,'PARAMETER ERROR.' 72000000 MEND 74000000