Re: RMM EDGRRPTE printing Problem
Mike, Many thanks!. That fixed it Crispin Hugo Systems Programmer Macro 4 Limited Direct Line: +44 (0)1293 872121, Switchboard: +44 (0)1293 872000, Fax: +44 (0)1293 872001 A Division of the UNICOM Group of Companies www.macro4.com Macro 4 Registered office :The Orangery, Turners Hill Road, Worth, Crawley, West Sussex, RH10 4SS Registered in England no. 927588 Please consider the environment and THINK before you print this email. Email Disclaimer -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Mike Wood Sent: 20 April 2010 16:28 To: IBM-MAIN@bama.ua.edu Subject: Re: RMM EDGRRPTE printing Problem Crispin, our sample JCL for running EDGRRPTE is SAMPLIB member EDGJRPT. It contains //REPORT14 DD SYSOUT=*,RECFM=VBA for report14. This identifies the file as containing ANSI print control characters. I suspect by sending to VM some additional char is inserted after EDGRRPTE has written the record to SYSOUT with the ASA print control character in position 1. Once you amend the DD statement to add RECFM, this should no longer happen. Mike Wood RMM Development -- 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 - This email has been scanned for all known viruses by the MessageLabs Email Security Service and the Macro 4 internal virus protection system. . - This email has been scanned for all known viruses by the MessageLabs Email Security Service and the Macro 4 internal virus protection system. . -- 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: RMM EDGRRPTE printing Problem
Mike, Thanks for the info. I am printing to z/VM. I have a job that uses EDGRRPTE for some reports then produces a report14 that I have modified. The o/p from the EDGRRPTE has printer control chars in column 2 and second report has printer control chars in column 1. K00080 DFSZOSAD.DR.PRODZOS.ZARES1 *1 1 K00130 USZOS109.DR.Z9RES1 *1 1 - End of Report. 19 En 1 DFSMSrmm MACRO 4 INTERNAL USE ONLY Movement Repor EDGRPT14 from location M4 - Volume BIN Vol- DSN- Serial Data Set NameNumber Seq. Seq. -- --- - J00186 DFSVMD.LOCAL.DLY.SARES1*1 1 - End of Report. 1 Ent 1Movement Report by Volume Serial- 1 -2010/04/19 1 To Destination / From Location OFFDRM4ATL Job Name Volume Volseq# Dataset Name -- --- -- DFSMSHSM J00305 1 SMSHSM.COPY.HMIGTAPE.DATASET JCL: //EXTRPDT EXEC PGM=IKJEFT01,DYNAMNBR=99,REGION=4096K //SYSTSPRT DD SYSOUT=X //SYSPRINT DD SYSOUT=X //SORTIN DD DISP=SHR,DSN=RMM.HSKP.EXTRACT //SORTOUT DD DSN=TEMP01,DISP=(,PASS,DELETE), // SPACE=(CYL,(200,20),RLSE),UNIT=SYSALLDA, // DCB=*.SORTIN //SYSINDD DSN=TEMP02,DISP=(,PASS,DELETE), // SPACE=(TRK,(1,1),RLSE),UNIT=SYSALLDA, // DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB) //SYSOUT DD SYSOUT=X //REPORT14 DD SYSOUT=Y //SYSTSIN DD * EX 'SYS1.SEDGEXE1(EDGRRPTE)' - '054 MACRO 4 INTERNAL USE ONLY' //* //WRITE1 EXEC PGM=ICETOOL,REGION=0M //SYSPRINT DD SYSOUT=X //TOOLMSG DD SYSOUT=X //DFSMSG DD SYSOUT=X //INDD DD DSN=RMM.HSKP.EXTRACT, //DISP=SHR //OUTDDDD SYSOUT=Y //TEMP DD UNIT=SYSALLDA,SPACE=(TRK,(5,25)) //TOOLIN DD * SORT FROM(INDD) TO(TEMP) USING(INCL) DISPLAY FROM(TEMP) LIST(OUTDD) - TITLE('Movement Report by Volume Serial') - PAGE DATE(4MD/) TIME - HEADER('Job Name') ON(23,8,CH) - HEADER('Volume') ON(32,6,CH) - HEADER('Volseq#') ON(39,4,CH) - HEADER('Dataset Name') ON(44,44,CH) - HEADER('Create Date') ON(89,10,CH) - BTITLE('To Destination / From Location') - BREAK(5,18,CH) - BTOTAL('') - BLANK - TOTAL('REMOVABLE MEDIA MANAGER') //INCLCNTL DD DSN=INCL,DISP=(OLD,PASS) /*...@02c*/ Crispin Hugo Systems Programmer Macro 4 Limited Direct Line: +44 (0)1293 872121, Switchboard: +44 (0)1293 872000, Fax: +44 (0)1293 872001 A Division of the UNICOM Group of Companies www.macro4.com Macro 4 Registered office :The Orangery, Turners Hill Road, Worth, Crawley, West Sussex, RH10 4SS Registered in England no. 927588 Please consider the environment and THINK before you print this email. Email Disclaimer -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Mike Wood Sent: 19 April 2010 17:58 To: IBM-MAIN@bama.ua.edu Subject: Re: RMM EDGRRPTE printing Problem Crispin, The reports are LRECL=133,RECFM=FBA - so first char is a ANSI print control character when the records are written by the exec EDGRRPTE. If you are creating a DASD data set then subsequently printing that, be sure the utility you use understands there is an existing print control character in each record. Similarly, if created as a SYSOUT file and now you
Re: RMM EDGRRPTE printing Problem
Crispin, I'm confused by your JCL below. What is the source of the RMM.HSKP.EXTRACT data set? Is it the REPTEXT DD output from running program EDGHSKP? If so, I'm don't see how the ICETOOL step reads it and produces a usable report. For one thing, at least in our extract file, there are no data set names that begin in column 44. I'm wondering if you haven't edited the output from one EDGRRPTE run and are using that to input into the EDGRRPTE step you've included below. Greg Shirey Ben E. Keith Co. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Crispin Hugo Sent: Tuesday, April 20, 2010 1:49 AM To: IBM-MAIN@bama.ua.edu Subject: Re: RMM EDGRRPTE printing Problem snip JCL: //EXTRPDT EXEC PGM=IKJEFT01,DYNAMNBR=99,REGION=4096K //SYSTSPRT DD SYSOUT=X //SYSPRINT DD SYSOUT=X //SORTIN DD DISP=SHR,DSN=RMM.HSKP.EXTRACT //SORTOUT DD DSN=TEMP01,DISP=(,PASS,DELETE), // SPACE=(CYL,(200,20),RLSE),UNIT=SYSALLDA, // DCB=*.SORTIN //SYSINDD DSN=TEMP02,DISP=(,PASS,DELETE), // SPACE=(TRK,(1,1),RLSE),UNIT=SYSALLDA, // DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB) //SYSOUT DD SYSOUT=X //REPORT14 DD SYSOUT=Y //SYSTSIN DD * EX 'SYS1.SEDGEXE1(EDGRRPTE)' - '054 MACRO 4 INTERNAL USE ONLY' //* //WRITE1 EXEC PGM=ICETOOL,REGION=0M //SYSPRINT DD SYSOUT=X //TOOLMSG DD SYSOUT=X //DFSMSG DD SYSOUT=X //INDD DD DSN=RMM.HSKP.EXTRACT, //DISP=SHR //OUTDDDD SYSOUT=Y //TEMP DD UNIT=SYSALLDA,SPACE=(TRK,(5,25)) //TOOLIN DD * SORT FROM(INDD) TO(TEMP) USING(INCL) DISPLAY FROM(TEMP) LIST(OUTDD) - TITLE('Movement Report by Volume Serial') - PAGE DATE(4MD/) TIME - HEADER('Job Name') ON(23,8,CH) - HEADER('Volume') ON(32,6,CH) - HEADER('Volseq#') ON(39,4,CH) - HEADER('Dataset Name') ON(44,44,CH) - HEADER('Create Date') ON(89,10,CH) - BTITLE('To Destination / From Location') - BREAK(5,18,CH) - BTOTAL('') - BLANK - TOTAL('REMOVABLE MEDIA MANAGER') //INCLCNTL DD DSN=INCL,DISP=(OLD,PASS) /*...@02c*/ snip -- 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: RMM EDGRRPTE printing Problem
Greg, Sorry for not being clear. EDGHSKP creates RMM.HSKP.EXTRACT using XREPTEXT DD. This is the same file that is input to ICETOOL. As I use the XREPTEXT DD, I get the more detailed information I need. All I have done is change the supplied REPORT14 and changed stuff around to how I want it. I am using all the stuff that is 'supplied' by DFSMSRMM report . Crispin Hugo Systems Programmer Macro 4 Limited Direct Line: +44 (0)1293 872121, Switchboard: +44 (0)1293 872000, Fax: +44 (0)1293 872001 A Division of the UNICOM Group of Companies www.macro4.com Macro 4 Registered office :The Orangery, Turners Hill Road, Worth, Crawley, West Sussex, RH10 4SS Registered in England no. 927588 Please consider the environment and THINK before you print this email. Email Disclaimer -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Greg Shirey Sent: 20 April 2010 15:48 To: IBM-MAIN@bama.ua.edu Subject: Re: RMM EDGRRPTE printing Problem Crispin, I'm confused by your JCL below. What is the source of the RMM.HSKP.EXTRACT data set? Is it the REPTEXT DD output from running program EDGHSKP? If so, I'm don't see how the ICETOOL step reads it and produces a usable report. For one thing, at least in our extract file, there are no data set names that begin in column 44. I'm wondering if you haven't edited the output from one EDGRRPTE run and are using that to input into the EDGRRPTE step you've included below. Greg Shirey Ben E. Keith Co. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Crispin Hugo Sent: Tuesday, April 20, 2010 1:49 AM To: IBM-MAIN@bama.ua.edu Subject: Re: RMM EDGRRPTE printing Problem snip JCL: //EXTRPDT EXEC PGM=IKJEFT01,DYNAMNBR=99,REGION=4096K //SYSTSPRT DD SYSOUT=X //SYSPRINT DD SYSOUT=X //SORTIN DD DISP=SHR,DSN=RMM.HSKP.EXTRACT //SORTOUT DD DSN=TEMP01,DISP=(,PASS,DELETE), // SPACE=(CYL,(200,20),RLSE),UNIT=SYSALLDA, // DCB=*.SORTIN //SYSINDD DSN=TEMP02,DISP=(,PASS,DELETE), // SPACE=(TRK,(1,1),RLSE),UNIT=SYSALLDA, // DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB) //SYSOUT DD SYSOUT=X //REPORT14 DD SYSOUT=Y //SYSTSIN DD * EX 'SYS1.SEDGEXE1(EDGRRPTE)' - '054 MACRO 4 INTERNAL USE ONLY' //* //WRITE1 EXEC PGM=ICETOOL,REGION=0M //SYSPRINT DD SYSOUT=X //TOOLMSG DD SYSOUT=X //DFSMSG DD SYSOUT=X //INDD DD DSN=RMM.HSKP.EXTRACT, //DISP=SHR //OUTDDDD SYSOUT=Y //TEMP DD UNIT=SYSALLDA,SPACE=(TRK,(5,25)) //TOOLIN DD * SORT FROM(INDD) TO(TEMP) USING(INCL) DISPLAY FROM(TEMP) LIST(OUTDD) - TITLE('Movement Report by Volume Serial') - PAGE DATE(4MD/) TIME - HEADER('Job Name') ON(23,8,CH) - HEADER('Volume') ON(32,6,CH) - HEADER('Volseq#') ON(39,4,CH) - HEADER('Dataset Name') ON(44,44,CH) - HEADER('Create Date') ON(89,10,CH) - BTITLE('To Destination / From Location') - BREAK(5,18,CH) - BTOTAL('') - BLANK - TOTAL('REMOVABLE MEDIA MANAGER') //INCLCNTL DD DSN=INCL,DISP=(OLD,PASS) /*...@02c*/ snip -- 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 - This email has been scanned for all known viruses by the MessageLabs Email Security Service and the Macro 4 internal virus protection system
Re: RMM EDGRRPTE printing Problem
Crispin, our sample JCL for running EDGRRPTE is SAMPLIB member EDGJRPT. It contains //REPORT14 DD SYSOUT=*,RECFM=VBA for report14. This identifies the file as containing ANSI print control characters. I suspect by sending to VM some additional char is inserted after EDGRRPTE has written the record to SYSOUT with the ASA print control character in position 1. Once you amend the DD statement to add RECFM, this should no longer happen. Mike Wood RMM Development -- 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: RMM EDGRRPTE printing Problem
Crispin, The reports are LRECL=133,RECFM=FBA - so first char is a ANSI print control character when the records are written by the exec EDGRRPTE. If you are creating a DASD data set then subsequently printing that, be sure the utility you use understands there is an existing print control character in each record. Similarly, if created as a SYSOUT file and now you are printing from the spool Mike Wood RMM Development On Mon, 19 Apr 2010 14:38:57 +0100, Crispin Hugo crispin.h...@macro4.com wrote: I have been using EDGRRPTE Report 14 for a few years. I now want to print the report and I find that the print control characters appear to be in 2 and not column 1 where I would expect them to be. Can someone help me understand what I am doing wrong Crispin Hugo Systems Programmer Macro 4 Limited -- 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