*DECK             PSCARY
USETEXT   TSOURCE 
USETEXT   TCEXECQ 
USETEXT   TSYMCNS 
USETEXT   TCEXEC
FUNC PSCARY((I));  # POSTS EXTERNAL DATA WITH NAME I #
BEGIN 
  
  
  
  
*CALL COMEX 
  
  
  
  
    ITEM I C(10),J,K B, L;
    XREF PROC PNAM; 
    XREF PROC SPOST;
    XREF PROC SOVER;
##       IF I EQ  "JHB.1" THEN I = "SYMHBR."; 
##       IF I EQ  "JHB.2" THEN I = "SYMHBL."; 
    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,DATA$W,K,L);
PS00: 
    IF K THEN 
         BEGIN #CHECK ATTRIBUTE ITEMS#
         IF CLAS[L] EQ QCLAS"DATA" AND
            (XTRN[L] EQ S"EXT" OR XTRN[L] EQ S"WEAK") AND 
            TYPE[L] EQ QTYPE"IGR" AND 
            NBIT[L] EQ 60          THEN 
              BEGIN 
PS10:         PSCARY=L; 
              RETURN; 
              END 
         SOVER(L);
         GOTO PS00; 
         END
    CLAS[L]=QCLAS"DATA";
    XTRN[L]=QXTRN"EXT"; 
    TYPE[L]=S"IGR"; 
    NBIT[L]=60; 
    ASEQ[LENT[XSLC]]=L; 
    LENT[XSLC]=L; 
    GOTO PS10;
END 
TERM
