$! This command procedure will compile and link the PPP
$! callback image.
$
$ ON WARNING THEN GOTO CLEANUP
$
$ SAVE_DEFAULT  = F$ENVIRONMENT("DEFAULT")  ! In case we are in SYS$SYSROOT
$ NEW_DEFAULT   = F$ENVIRONMENT("PROCEDURE")
$ NEW_DEFAULT   = F$PARSE(NEW_DEFAULT,,,"DEVICE") + -
                  F$PARSE(NEW_DEFAULT,,,"DIRECTORY")
$ SET DEFAULT 'NEW_DEFAULT'
$
$ CC PPPD_CALLBACK + -
  SYS$LIBRARY:SYS$LIB_C.TLB/LIB
$
$ LINK/SYSEXE/SHARE=PPP_CALLBACK PPPD_CALLBACK,SYS$INPUT:/OPT
PSECT_ATTR=$$$CODE_BEGIN,   PIC,CON,REL,GBL,  SHR,  EXE,NOWRT,NOVEC,MOD 
PSECT_ATTR=ZZZ_CODE_END,    PIC,CON,REL,GBL,  SHR,  EXE,NOWRT,NOVEC,MOD 
PSECT_ATTR=$DATA$,        NOPIC,OVR,REL,GBL,NOSHR,NOEXE,  WRT,NOVEC,MOD 
PSECT_ATTR=$$$DATA_BEGIN, NOPIC,OVR,REL,GBL,NOSHR,NOEXE,  WRT,NOVEC,MOD 
PSECT_ATTR=ZZZ_DATA_END,  NOPIC,OVR,REL,GBL,NOSHR,NOEXE,  WRT,NOVEC,MOD
PSECT_ATTR=ASNNAME,       NOPIC,OVR,REL,GBL,NOSHR,NOEXE,  WRT,NOVEC,MOD 
PSECT_ATTR=ASNNAMELEN,    NOPIC,OVR,REL,GBL,NOSHR,NOEXE,  WRT,NOVEC,MOD
PSECT_ATTR=$BSS$,         NOPIC,OVR,REL,GBL,NOSHR,NOEXE,  WRT,NOVEC,MOD
PSECT_ATTR=$$$LINK_BEGIN, NOPIC,CON,REL,GBL,NOSHR,NOEXE,NOWRT,NOVEC,MOD 
PSECT_ATTR=ZZZ_LINK_END,  NOPIC,CON,REL,GBL,NOSHR,NOEXE,NOWRT,NOVEC,MOD 

COLLECT=CODE_PSECTS,$$$CODE_BEGIN,$CODE$,$CODE,ZZZ_CODE_END
COLLECT=LINKAGE_SECTION_PSECTS,$$$LINK_BEGIN,$LINK$,$LINKAGE,$LITERAL$,ZZZ_LINK_END

SYMBOL_VECTOR=(PPPD$open_connect=procedure)
$
$ DELETE PPPD_CALLBACK.OBJ;*
$
$ CLEANUP:
$
$ SET DEFAULT 'SAVE_DEFAULT'