Re: ADMUGIF REXX Sample - ADMGDF To GIF Conversion
Martin,
I have a PLX program that I wrote to do this kind of thing last year. That
program would not be of much use to you, so I've written you a short REXX
sample as follows:
/* REXX */
trace i
ALLOC DD(ADMGDF) DS('GDDM.SADMGDF') SHR REUSE
ALLOC DD(ADMSYMBL) DS('GDDM.SADMSYM') SHR REUSE
ALLOC DD(TEMPGIF) DS(GIFLIB(ADMTEST)) SHR REUSE
CALL *(ADMUGIF) 'From(ADMTEST) ,
To(TEMPGIF) Message(0) ,
Backcol(0) Width(1024) Depth(1024)'
FREE DD(ADMGDF)
FREE DD(ADMSYMBL)
FREE DD(TEMPGIF)
GIFLIB is RECFM=FB, LRECL=80
ADMTEST is the GDF name. I've assumed that GDDM.SADMMOD is in the
LNKLST, JOBLIB, STEPLIB, or whatever. The MESSAGE parm is documented in
APAR PQ30016. We've recently had an abend with ADMUGIF for which there is
an APAR - I don't have its number to hand.
Phil King, Rocket Software UK Ltd, Warwick, England
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ADMUGIF REXX Sample - ADMGDF To GIF Conversion
Thanks, Phil! Very much appreciated. Now, how about extending it to create JPEGs directly? :-) Cheers, Martin Martin Packer Performance Consultant IBM United Kingdom Ltd +44-20-8832-5167 +44-7802-245-584 email: martin_pac...@uk.ibm.com Twitter ID: MartinPacker They're figuring out that collaboration isn't a productivity hit, it makes them smarter. Sam Palmisano on BlogCentral, 26 November 2008 Unless stated otherwise above: IBM United Kingdom Limited - Registered in England and Wales with number 741598. Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ADMUGIF REXX Sample - ADMGDF To GIF Conversion
Martin, I came across a reference to TRANSMOGRIFIER several years ago and made a note of it. I've never tried it. I don't know whether it could be used to convert ADMGDF files to JPEGs. For more information see: http://www.ibm.com/software/applications/office/bkmgr/transmog.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
ADMUGIF REXX Sample - ADMGDF To GIF Conversion
Ultimately I'm trying to convert ADMGDFs into JPEGs (though I guess GIFs have similar utility). Does anyone have a sample invocation - either JCL or (preferably) REXX for invoking ADMUGIF to convert ADMGDFs to GIFs? In particular I want to convert from one member of a PDS to another member. I have to confess the GDDM documentation for ADMUGIF is pretty crummy - especially on file allocation for the GIF PDS. If HFS would be a better target data set I'll countenance using that instead of a PDS. The other route is to take the CGMs my process already creates and convert them somehow to GIF or JPEG. Possibly on z/OS in Batch or maybe on Windows. Though I don't know of a good batch conversion program. As give back I'll happily document - in my blog - how to do this. (I'll obviously acknowledge those who help me in this quest.) Thanks, Martin Martin Packer Performance Consultant IBM United Kingdom Ltd +44-20-8832-5167 +44-7802-245-584 email: martin_pac...@uk.ibm.com Twitter ID: MartinPacker They're figuring out that collaboration isn't a productivity hit, it makes them smarter. Sam Palmisano on BlogCentral, 26 November 2008 Unless stated otherwise above: IBM United Kingdom Limited - Registered in England and Wales with number 741598. Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
rexx sample
Hi all, Does anybody out there have a sample in REXX to send a message to console and get a response from operator ,something like WTOR(write to operator with reply) macro in assembly? Any help is highly appretiated. Regards, Ali -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: rexx sample
You probably need to run this clist under Netview, not TSO. I have Netview clists that send msgs and get responses, but we also run SA so some of the functions may not work without it. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of jalili Sent: Tuesday, May 15, 2007 11:00 AM To: IBM-MAIN@BAMA.UA.EDU Subject: rexx sample Hi all, Does anybody out there have a sample in REXX to send a message to console and get a response from operator ,something like WTOR(write to operator with reply) macro in assembly? Any help is highly appretiated. Regards, Ali -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: rexx sample
Jalili, try with this site: http://www.sscmainframe.com/freeware.htm and download program ALXRWTOR. Then assemble it and make the use you need. Hope this helps. _ Paolo Cacciari Business Continuity and Resiliency Services, IBM Global Services - South Region, EMEA --- Hi all, Does anybody out there have a sample in REXX to send a message to console and get a response from operator ,something like WTOR(write to operator with reply) macro in assembly? Any help is highly appretiated. Regards, Ali -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: rexx sample
Ali,
You can use some code similar to this:
/* REXX */
CONSOLE ACTIVATE
CONSPROF SOLDISPLAY(NO) SOLNUM(100)
ADDRESS CONSOLE
console command
DISPMSG = ''
MCODE = GETMSG('DISPMSG.','SOL',,,10)
DO UNTIL DISPMSG.1 = ''
SAY DISPMSG.1
DISPMSG.1 = ''
MCODE = GETMSG('DISPMSG.','SOL',,,10)
END
EXIT 0
Kurt Gramling
Hi all,
Does anybody out there have a sample in REXX to send a message to console
and get a response from operator ,something like WTOR(write to operator
with reply) macro in assembly?
Any help is highly appretiated.
Regards,
Ali
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: rexx sample
--snip- Does anybody out there have a sample in REXX to send a message to console and get a response from operator ,something like WTOR(write to operator with reply) macro in assembly? Any help is highly appretiated. -unsnip- I have a Assembler Language routine that you can use in a CLIST for that function, if you want to try to adapt it for REXX usage. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
