/* REXX EXEC TO CHANGE HTML LINKS */                                    00010004
/* THIS EXEC IS TO CHANGE GRAPHICS HTML LINKS FROM THE FORM:        */  00020000
/*      GPLOT)'gplotn   TO:  GPLOTn)'"                        */        00020104
/* TO USE THIS EXEC, GET INTO EDIT IN THE MAIN HTML DOCUMENT  I.E.  */  00021004
/* NOT THE CONTENTS, NOT THE FRAME, BUT THE BODY                    */  00022004
/* THEN JUST TYPE IN THE NAME OF THIS EXEC FOLLOWED BY THE GIF      */  00023004
/* POINTER.  I.E.  GIFPTR GPLOT   in the command field              */  00024004
   /* TRACE ALL;  */                                                    00040006
SUBCOM ISREDIT;                       /* MAKE SURE EDIT MODE VALID */   00050000
IF RC=1 THEN;                                                           00060000
  DO;                                                                   00070000
    SAY 'YOU ARE NOT IN EDIT MODE';                                     00080000
    EXIT 8;                                                             00090000
  END;                                                                  00100000
ADDRESS ISREDIT;                      /* SET TO ISREDIT MODE       */   00110000
IF ADDRESS() /= 'ISREDIT' THEN;                                         00120000
  DO;                                                                   00130000
    SAY ADDRESS();                                                      00140000
    SAY 'YOU MAY NOT EXECUTE INITS UNLESS IN ISPF EDIT';                00150000
    EXIT 8;                                                             00160000
  END;                                                                  00170000
'MACRO (GIFPTR)';                      /* INITIALIZE EDIT MACRO     */  00180003
'CURSOR = .ZFIRST 1';                  /* MOVE CURSOR TO TOP        */  00190000
'RESET EXCLUDED';                      /* UNEXCLUDE                 */  00200000
UCGIFPTR=TRANSLATE(GIFPTR);                                             00210003
LCGIFPTR=TRANSLATE(UCGIFPTR,'abcdefghijklmnopqrstuvwxyzZ0123456789','ABC00240003
DEFGHIJKLMNOPQRSTUVWXYZ0123456789');                                    00250003
 /* NEXT COMMAND IS: CHANGE GCHART)'gchart GCHART ALL   */              00270000
"CHANGE "||UCGIFPTR||")'"||LCGIFPTR||" "||UCGIFPTR||" ALL";             00280003
 /*CHANGE CPUD)" || "'" || "cpud CPUD ALL";*/                           00290001
IF RC \= 0 THEN SIGNAL ERROR1;                                          00300000
'CURSOR = .ZFIRST 1';                  /* MOVE CURSOR TO TOP        */  00310000
 /* NEXT COMMAND IS: CHANGE .gif" )'" ALL               */              00320000
"CHANGE .gif" || '"' || " )'" || '" ALL';                               00330000
IF RC \= 0 THEN SIGNAL ERROR1;                                          00340000
ADDRESS ISPEXEC;                                                        00350000
ZEDSMSG='Graphics links changed';                                       00360000
ZEDLMSG='Links now of the form DSN(CPUDn)';                             00370000
'SETMSG MSG(ISRZ000)';                                                  00380000
EXIT 0;                                                                 00390000
ERROR1:                                                                 00400000
ADDRESS ISPEXEC;                                                        00410000
ZEDSMSG='Error on change command';                                      00420000
ZEDLMSG='Edit links manually';                                          00430000
'SETMSG MSG(ISRZ000)';                                                  00440000
EXIT 8;                                                                 00450000