*DECK             PSCPRC
USETEXT   TSOURCE 
USETEXT   TCEXECQ 
USETEXT   TSYMCNS 
USETEXT   TCEXEC
FUNC PSCPRC((I));  # POSTS EXTERNAL PROC WITH NAME I #
BEGIN 
  
  
  
  
*CALL COMEX 
  
  
  
    ITEM I C(10),J,K B,L; 
    XREF PROC PNAM; 
    XREF PROC SPOST;
    XREF PROC SOVER;
    L=9;
PS: IF B<L*6,6>I EQ " " THEN
         BEGIN
         L=L-1; 
         GOTO PS; 
         END
    PNAM(I,L+1,J);
    SPOST(J,PROC$W,K,L);
PS00: 
    IF K THEN 
         BEGIN #CHECK ATTRIBUTE ITEMS#
         IF CLAS[L] EQ QCLAS"PROC" AND
            (XTRN[L] EQ S"EXT" OR XTRN[L] EQ S"WEAK") THEN
              BEGIN 
PS10:         PSCPRC=L; 
              RETURN; 
              END 
         SOVER(L);
         GOTO PS00; 
         END
    CLAS[L]=QCLAS"PROC";
    XTRN[L]=QXTRN"EXT"; 
    ASEQ[LENT[XSLC]]=L; 
    LENT[XSLC]=L; 
    GOTO PS10;
END 
TERM
