Re: Strip column 1 from reports - Resolved - Thank you!

[Frank Yaeger]

Paul Gilmartin at IBM Mainframe Discussion List 
wrote on 05/30/2012 11:32:21 AM:
> It would be _so_ clever if DFSORT performed this adjustment
> of its default automatically when NOCC was specified.

Oops.  I misspoke.

Actually, I should have been more clear about this.  When you
use NOCC or REMOVECC and let DFSORT/ICETOOL set the attributes
automatically, it does set RECFM=FB.  It will only use
RECFM=FBA if the output data set already exists with
that attribute.  I suspect that was the case here, so
RECFM=FB would be needed explicitly to override the
existing RECFM of FBA.  If the output data set did not
have a RECFM attribute, then RECFM=FB would be set
by default.  Sorry for the confusion.

Frank Yaeger - DFSORT Development Team (IBM) - yae...@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration

 => DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports - Resolved - Thank you!

[Paul Gilmartin]

On Wed, 30 May 2012 10:24:10 -0700, Frank Yaeger wrote:
>
>I would suggest specifying RECFM=FB on the DFSORT output DD when you
>remove the carriage control characters, to override the default of
>RECFM=FBA,
>so the carriage control characters won't be expected.
> 
It would be _so_ clever if DFSORT performed this adjustment
of its default automatically when NOCC was specified.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports - Resolved - Thank you!

[Elardus Engelbrecht]

Frank Yaeger wrote:

>I would suggest specifying RECFM=FB on the DFSORT output DD when you remove 
>the carriage control characters, to override the default of RECFM=FBA, so the 
>carriage control characters won't be expected.

Interesting! Thanks very much. 

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports - Resolved - Thank you!

[Elardus Engelbrecht]

Paul Gilmartin wrote:
>Best?  Doesn't this imply that if you printed these RECFM=FBA reports on a 
>real printer, you'd get (very) undesirable results?

These clients (nearly all of them) are using windoze or open source e-mail 
client software and network printers. Generally they DON'T print them often 
because they are [needless? ;-D ] worrying about chopping down trees, 
tree-hugging thing, cost saving campaigns, too lazy to collect printouts, etc. 
;-D

They generally save these text format reports on their disks for later perusal 
or auditing. 

Most of these reports are generally partly cut/copy/pasted into something else 
or imported (text -> columns) in a spreadsheet. [1]

I can always copy the data from the FBA datasets and print them on a real 
printer. [2] I do that only on ad-hoc requests.

>It would be worse on a printer, where col. 1, not seen here, would cause skips 
>and page throwups, etc.

Agreed. This is not a concern. I can always rerun my reports without NOCC if 
needed. This is easy, because I keep my source data and reports for a while. 

But Paul, many thanks for catching this. Much appreciated! ;-D

Groete / Greetings
Elardus Engelbrecht

[1] - I have in the past imported those text where I just skip the first column 
in a spreadsheet and then copy the rest back to a text format file or just 
leave them there in the spreadsheet. It is a PITA, while fast, but still a real 
PITA, to do these things.

[2] - Some of these reports go straight to a LRS / VPS printer, but they are 
being eliminated over the time. These users are generally forgetting to put in 
paper, causing TCP/IP errors and possible loss of data to be printed. Or these 
users don't have any budget for paper! Wow, these interesting times!!! ;-D

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports - Resolved - Thank you!

[Frank Yaeger]

Paul Gilmartin at IBM Mainframe Discussion List 
wrote on 05/30/2012 08:32:36 AM:
> >The very best thing of this - These reports are shifted to the left
> automagically despite the output datasets are still RECFM=FBA. So no
> blanks lines in column 1 are shown, especially in e-mails to my clients.
> >
> Best?  Doesn't this imply that if you printed these RECFM=FBA reports
> on a real printer, you'd get (very) undesirable results?
>
> > ...
> >If I browse the FBA dataset as it is used by SMTP, I see this using
> ISPF browse (not Edit! ):
> >
> >ainTitle2012/05/30  12:34
> >eader
> >ata
> >
> It would be worse on a printer, where col. 1, not seen here, would cause
> skips and page throwups, etc.

I would suggest specifying RECFM=FB on the DFSORT output DD when you
remove the carriage control characters, to override the default of
RECFM=FBA,
so the carriage control characters won't be expected.

Frank Yaeger - DFSORT Development Team (IBM) - yae...@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration

 => DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports - Resolved - Thank you!

[Paul Gilmartin]

On Wed, 30 May 2012 10:18:42 -0500, Elardus Engelbrecht wrote:
>
>The very best thing of this - These reports are shifted to the left 
>automagically despite the output datasets are still RECFM=FBA. So no blanks 
>lines in column 1 are shown, especially in e-mails to my clients.
> 
Best?  Doesn't this imply that if you printed these RECFM=FBA reports
on a real printer, you'd get (very) undesirable results?

> ...
>If I browse the FBA dataset as it is used by SMTP, I see this using ISPF 
>browse (not Edit! ):
>
>ainTitle2012/05/30  12:34
>eader
>ata
>
It would be worse on a printer, where col. 1, not seen here, would cause
skips and page throwups, etc.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports - Resolved - Thank you!

[Elardus Engelbrecht]

Frank Yaeger wrote:

>If you are using the DISPLAY or OCCUR operator of DFSORT's ICETOOL, you can 
>specify the NOCC operand to remove the carriage control characters.

That NOCC operand in DISPLAY and OCCUR commands resolved perhaps over +- 90% of 
my reports! No JCL or other messy changes are needed! Many thanks!

>For DFSORT reports, you can use the REMOVECC operand.

>You can use DFSORT's INREC statement to remove the first character from any 
>file, e.g.
>OPTION COPY
>INREC BUILD=(2,n)
>where n=LRECL-1 (e.g. 2,132 for LRECL=133).

For those reports, for example from RACFRW, that REMOVECC and COPY+BUILD is 
working like a charm. I just now insert a DFSORT OPTION COPY step between 
RACFRW step and IEBGENER SMTP step.

Voila! All is sorted out. No pesky '1', '0', '+' and '-' in column 1. ;-D

The very best thing of this - These reports are shifted to the left 
automagically despite the output datasets are still RECFM=FBA. So no blanks 
lines in column 1 are shown, especially in e-mails to my clients.

For example (before NOCC) as seen in e-mail attachment in Text Format:

1MainTitle2012/05/30  12:34
 header 
 data

Translated to this via NOCC operand and then SMTP to receivers: 

MainTitle2012/05/30  12:34
header 
data

If I browse the FBA dataset as it is used by SMTP, I see this using ISPF browse 
(not Edit! ):

ainTitle2012/05/30  12:34
eader 
ata

To all others who kindly replied: I have NOT forgotten you. Many thanks. I have 
shared your suggestions to my colleagues. Perhaps they can find a use for it. 

Frank Yaeger: You may ( MUST! ;-D ) now retire! I wish you a very peacefully 
retirement. :-D

Again thank you to all who replied.

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Ulrich Krueger]

Roland,
Are you aware of TXT2PDF? That's a free REXX tool to convert mainframe reports 
into well - formatted PDF reports/files, optionally with greenbar background. 
It was originally part of Lyonel Dyck's XMITIP Email package.
See http://homerow.net/rexx/txt2pdf/



Regards,
Ulrich Krueger



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Roland Kinsman
Sent: Friday, May 04, 2012 8:34 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Strip column 1 from reports

I wrote a REXX program to take SYSOUT with ANSI control characters and 
generates an XML file.  It comes out looking very nice in MS-Word.  From there 
I print it to PDF using PDF Creator.  I'm attaching the source for the REXX, as 
well as the XML Style Sheet that it references.  To run the REXX on your PC, 
you will need to install Regina Rexx (http://regina-rexx.sourceforge.net/)

Theoretically, you could take it a step further and generate the Word document 
directly.  Here's a link to get started down that path...  
http://msdn.microsoft.com/en-us/library/bb264572.aspx


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Roland Kinsman]

I wrote a REXX program to take SYSOUT with ANSI control characters and 
generates an XML file.  It comes out looking very nice in MS-Word.  From there 
I print it to PDF using PDF Creator.  I'm attaching the source for the REXX, as 
well as the XML Style Sheet that it references.  To run the REXX on your PC, 
you will need to install Regina Rexx (http://regina-rexx.sourceforge.net/)

Theoretically, you could take it a step further and generate the Word document 
directly.  Here's a link to get started down that path...  
http://msdn.microsoft.com/en-us/library/bb264572.aspx


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
/* REXX */
SIGNAL ON NOVALUE   /* Enable the conditions and  */
SIGNAL ON SYNTAX/* point at reasonable*/
SIGNAL ON FAILURE   /* condition handling */
SIGNAL ON HALT
 
REXX_name_long = "SYSOUT Formatter"
REXX_name_short = "SYSOUT"
Update_date = "21 Feb 2012" /* See Change Log */
 
/*
 
SYSOUT - SYSOUT Formatter
 
This REXX EXEC formats SYSOUT for printing.  It takes SYSOUT in  
text format creates an XML file for use with SYSOUT.XSL
 
*/
 
/* Output data:  */
msgo_DD = "MSGO" /* Output message file */
xmlo_DD = "xmlo" /* Output reformatted transaction data */
 
xmlo_filename = "SYSOUT.xml"
msgo = "SYSOUT REXX Messages.txt"
 
/* Input data:  */
/* SYSOUT Text file */
csvi_DD = "csvi"
 
csvi_filename = "SYSOUT.txt"
 
/* Initialize stems for numeric fields and logical switches */
ctr. = 0; sw. = 0
 
/*
 
Determine the execution environment
 
*/
exec_env = ADDRESS()
PARSE SOURCE OS .
SELECT
   WHEN exec_env = "TSO" THEN DO /* TSO (IKJEFT01) */
  sw.mainFrame = 1
  user_interface = SYSVAR("SYSENV") /* FORE or BACK */
  END
   WHEN exec_env = "MVS" THEN DO /* Batch (IRXJCL) */
  sw.mainFrame = 1
  user_interface = "BACK"
  END
   WHEN exec_env = "SYSTEM" THEN DO
  user_interface = "BACK"
  IF OS ^= "WIN32" THEN SIGNAL A010_unexpected_environment
  sw.use_say = 1
  END
   OTHERWISE SIGNAL A010_unexpected_environment
END
 
SIGNAL A011_got_env
 
/*
  If we cannot determine the execution environment...
  1. Issue an error
  2. Set the return code
  3. Quit
*/
A010_unexpected_environment:
SAY "Unexpected execution environment"
SAY "Address:" exec_env
SAY "OS:" OS
ctr.return_code = 16
SIGNAL QUIT
 
/*
 Free and allocate data files for interactive execution (Skip for
 background execution)
*/
A011_got_env:
IF user_interface = "BACK" THEN SIGNAL A020_alloc_done
sw.use_say = 1
 
hlq='HCHRJK0.PERSONAL'
msgo_DSN = "'"hlq||"."||REXX_name_short||"."||msgo_DD||"'"
xmlo_DSN = "'"hlq||"."||REXX_name_short||"."||xmlo_DD||"'"
csvi_DSN = "'"hlq||"."||REXX_name_short||"."||csvi_DD||"'"
 
/*
 Free and allocate data files for interactive execution
 Skip FREE and ALLOC for batch execution
*/
 
"FREE F("MSGO_DD")"
"FREE F("xmlo_DD")"
"FREE F("csvi_DD")"
"ALLOC DA("||msgo_DSN||") F("msgo_DD") OLD REUSE"
"ALLOC DA("||xmlo_DSN||") F("xmlo_DD") OLD REUSE"
"ALLOC DA("||csvi_DSN||") F("csvi_DD") SHR REUSE"
 
A020_alloc_done:
 
/* For Mainframe, open the output files */
IF sw.mainFrame THEN DO
   "EXECIO 0 DISKW " msgo_DD " (OPEN"
   "EXECIO 0 DISKW " xmlo_DD " (OPEN"
   END
 
/* Write the title lines in the message file */
msgo_rec =REXX_name_long 'Last Updated:' Update_date
CALL G100_msg_out
 
/*
 
Queue up the input TXT file.  If it is empty, issue an error
message and quit.
 
*/
IF sw.mainFrame THEN
   "EXECIO * DISKR " csvi_DD " (STEM line_csvi. FINIS"
ELSE DO
   line_csvi.0 = 0
   DO sub=1 WHILE LINES(csvi_filename)
  line_csvi.sub = LINEIN(csvi_filename)
  line_csvi.0 = sub
  END
   END
 
IF line_csvi.0 > 0 THEN SIGNAL A040_do_xml
 
SIGNAL A020_error01;A020_error01:
msg_line=SIGL+2;sIGNAL A020_error01o
' '
'**'
'*** SYSOUT ERROR01 ***'
'*** No records in the input TXT file   ***'
'**'
' '
A020_error01o:
DO msg_sub=msg_line WHILE SOURCELINE(msg_sub) ^= 'A020_error01o:'
   INTERPRET 'msgo_rec = ' SOURCELINE(msg_sub);CALL G100_msg_out
END
ctr.return_code = 16
SIGNAL Quit
 
A040_do_xml:
/* 

Write the DTD and top-level element

*/
SIGNAL A040_DTDo;A040_DTDo:
xml_line=SIGL+2;SIGNAL A040_DTDoo
''
''
''
''
''
''
''
']>'
''
A040_DTDoo:
DO xml_sub=xml_line WHILE SOURCELINE(xml_sub) ^= 'A040_DTDoo:'
   INTERPRET 'xmlo_rec = ' SOURCELINE(xml_sub);CALL G110_xml_out
END
 
/* 

Process the input file

*/
DO csvi_cursor=1 WHILE csvi_cursor <= line_csvi.0
   CALL A100_do_xml
   END
 
/* Add closing top-level element to XML output */
xmlo_rec = "";CALL G110_xml_out
 
/* Add ending messages to the queue */
SIGNAL A040_msg999;A040_msg999:
msg_line=

Re: Strip column 1 from reports

[Ed Finnell]

Back in the ARCHIVEs Cheryl wanted a WORD macro to do this and somebody  
kindly provided it. Don't know if that's good or bd.
 
 
In a message dated 5/3/2012 9:06:55 A.M. Central Daylight Time,  
elardus.engelbre...@sita.co.za writes:

will  post my results later when everthing is stabilized and my users are 
happy with  the reports.



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Elardus Engelbrecht]

To all who kindly replied in this thread, 

I have read all of your valued comments and suggestions. I'm still busy 
checking/testing all of them.

Many thanks to all of you, you were all very helpful. :-)

I will post my results later when everthing is stabilized and my users are 
happy with the reports.

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Scott Ford]

Elardus,

It's probably all ready been mentioned, a small rexx clist can do this also...
Maybe 10 lines or so...also depends on what else you doing with the data, any 
formatting, etc...

Hth

Regards,


Scott Ford
Senior Systems Engineer
www.identityforge.com



On Apr 30, 2012, at 12:59 PM, Scott Ford  wrote:

> Elardus,
> 
> Wow, 3800 printers, I remember they forms and then you could over or insert 
> you text data , e to into the form for printing..worked the awhile ago..10+ 
> yrs my friend
> 
> 
> Scott Ford
> Senior Systems Engineer
> www.identityforge.com
> 
> 
> 
> On Apr 30, 2012, at 12:27 PM, Elardus Engelbrecht 
>  wrote:
> 
>> Paul Gilmartin wrote:
>> 
>>> In the wider perspective, ASA carriage control was originally a form of 
>>> presentational markup targeted at a class of output devices, impact 
>>> printers, then preponderant, now dwindling.
>> 
>> Markup, yes, this is the correct word in these times of markup languages. 
>> The ASA cc was indeed a type of markup where you say, put text here, start 
>> new page there, overwrite a line there and there. It reminds me of the type 
>> of first column (AFAIK) where you tell the 3800 laser printer to use this or 
>> that font on this or that line.
>> 
>> Any greybeards remembering this 3800 toy? ;-D
>> 
>>> It would be chaotic to produce an instance of each report for each class of 
>>> output device (printer, 3278, GUI display, etc.)  Semantic markup is the 
>>> necessary answer. It would likewise be chaotic to undertake conversion of 
>>> each report generator to generate reports with semantic markup.  A likely 
>>> better place to do this is in a SYSOUT writer that filters ASA carriage 
>>> control to a semantic markup language such as HTML, or perhaps XML.  
>> 
>> Agreed 100%. Is there such software [1] ? I'm aware of XML on /zOS, but can 
>> you use it on a SYSOUT? 
>> 
>>> And it might be unreasonable to expect such a filter to generate proper 
>>> markup for intended tabular material in reports.  (Does XMITIP, for 
>>> example, to this?)
>> 
>> Interesting question! Thanks, I wonder what answer you will get?
>> 
>> Thanks Paul for your kind comments. It is much appreciated!
>> 
>> Groete / Greetings
>> Elardus Engelbrecht
>> 
>> [1] - It seemed to me that LRS/DRS can do this, but then, there is no actual 
>> printing in this case.
>> 
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Shmuel Metz (Seymour J.)]

In <5035871363212215.wa.elardus.engelbrechtsita.co...@bama.ua.edu>, on
04/30/2012
   at 11:27 AM, Elardus Engelbrecht 
said:

>Any greybeards remembering this 3800 toy? ;-D

Greybeards? The 3800 is the new printer, replacing the Nancy one and
the faster 3211.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Shmuel Metz (Seymour J.)]

In <5877212518161987.wa.paulgboulderaim@bama.ua.edu>, on
04/30/2012
   at 09:11 AM, Paul Gilmartin  said:

>In the wider perspective, ASA carriage control was originally a form
>of presentational markup targeted at a class of output devices,
>impact printers, then preponderant, now dwindling.

Specifically for line printers, not for serial printers.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Linda Mooney]

Hi Elardus, 



How about IEBPTPCH?  It can handle ANSI or machine carriage control if you want 
the report to look like it would have on the printer, or you can use the RECORD 
statement  - 



{label} RECORD {IDENT=(length,'name',input-location)}  
   {,FIELD=(length      
    
   {,input-location}      

   {,conversion}   
   {,output-location})}    
   {,FIELD=...}    


to start your input field in column 2 and bypass the carriage control.  



Your original dataset could retain all of it's characteristics and the output 
of the IEBPTPCH can be directed however you wish.  



HTH, 



Linda 





VPS/DRS can do more than just print.  Just sayin'. 


- Original Message -


From: "Elardus Engelbrecht"  
To: IBM-MAIN@bama.ua.edu 
Sent: Monday, April 30, 2012 9:27:23 AM 
Subject: Re: Strip column 1 from reports 

Paul Gilmartin wrote: 

>In the wider perspective, ASA carriage control was originally a form of 
>presentational markup targeted at a class of output devices, impact printers, 
>then preponderant, now dwindling. 

Markup, yes, this is the correct word in these times of markup languages. The 
ASA cc was indeed a type of markup where you say, put text here, start new page 
there, overwrite a line there and there. It reminds me of the type of first 
column (AFAIK) where you tell the 3800 laser printer to use this or that font 
on this or that line. 

Any greybeards remembering this 3800 toy? ;-D 

>It would be chaotic to produce an instance of each report for each class of 
>output device (printer, 3278, GUI display, etc.)  Semantic markup is the 
>necessary answer. It would likewise be chaotic to undertake conversion of each 
>report generator to generate reports with semantic markup.  A likely better 
>place to do this is in a SYSOUT writer that filters ASA carriage control to a 
>semantic markup language such as HTML, or perhaps XML.   

Agreed 100%. Is there such software [1] ? I'm aware of XML on /zOS, but can you 
use it on a SYSOUT? 

> And it might be unreasonable to expect such a filter to generate proper 
> markup for intended tabular material in reports.  (Does XMITIP, for example, 
> to this?) 

Interesting question! Thanks, I wonder what answer you will get? 

Thanks Paul for your kind comments. It is much appreciated! 

Groete / Greetings 
Elardus Engelbrecht 

[1] - It seemed to me that LRS/DRS can do this, but then, there is no actual 
printing in this case. 

-- 
For IBM-MAIN subscribe / signoff / archive access instructions, 
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Ed Finnell]

The AFP transforms can do this to PCL,PDF,SAP, PS and maybe a few  others.
Back when we looked, it was cheaper just to flick it over to ePrint and let 
 it handle it. Think they're still at _www.leadtools.com_ 
(http://www.leadtools.com) 
 
XMITIP has a Text to PDF converter. LPR can do Post Script output. 3800's  
were a bear. Couldn't rotate psegs. so had to go in and manually gyrate the 
60  cell
patterns and put them back together to get a 'floating signature' in  
portrait.
 
 
 
In a message dated 4/30/2012 3:46:41 P.M. Central Daylight Time,  
elardus.engelbre...@sita.co.za writes:

A likely  better place to do this is in a SYSOUT writer that filters ASA 
carriage  control to a semantic markup language such as HTML, or perhaps XML.  
 



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Scott Ford]

Elardus,

Wow, 3800 printers, I remember they forms and then you could over or insert you 
text data , e to into the form for printing..worked the awhile ago..10+ yrs my 
friend


Scott Ford
Senior Systems Engineer
www.identityforge.com



On Apr 30, 2012, at 12:27 PM, Elardus Engelbrecht 
 wrote:

> Paul Gilmartin wrote:
> 
>> In the wider perspective, ASA carriage control was originally a form of 
>> presentational markup targeted at a class of output devices, impact 
>> printers, then preponderant, now dwindling.
> 
> Markup, yes, this is the correct word in these times of markup languages. The 
> ASA cc was indeed a type of markup where you say, put text here, start new 
> page there, overwrite a line there and there. It reminds me of the type of 
> first column (AFAIK) where you tell the 3800 laser printer to use this or 
> that font on this or that line.
> 
> Any greybeards remembering this 3800 toy? ;-D
> 
>> It would be chaotic to produce an instance of each report for each class of 
>> output device (printer, 3278, GUI display, etc.)  Semantic markup is the 
>> necessary answer. It would likewise be chaotic to undertake conversion of 
>> each report generator to generate reports with semantic markup.  A likely 
>> better place to do this is in a SYSOUT writer that filters ASA carriage 
>> control to a semantic markup language such as HTML, or perhaps XML.  
> 
> Agreed 100%. Is there such software [1] ? I'm aware of XML on /zOS, but can 
> you use it on a SYSOUT? 
> 
>> And it might be unreasonable to expect such a filter to generate proper 
>> markup for intended tabular material in reports.  (Does XMITIP, for example, 
>> to this?)
> 
> Interesting question! Thanks, I wonder what answer you will get?
> 
> Thanks Paul for your kind comments. It is much appreciated!
> 
> Groete / Greetings
> Elardus Engelbrecht
> 
> [1] - It seemed to me that LRS/DRS can do this, but then, there is no actual 
> printing in this case.
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Elardus Engelbrecht]

Paul Gilmartin wrote:

>In the wider perspective, ASA carriage control was originally a form of 
>presentational markup targeted at a class of output devices, impact printers, 
>then preponderant, now dwindling.

Markup, yes, this is the correct word in these times of markup languages. The 
ASA cc was indeed a type of markup where you say, put text here, start new page 
there, overwrite a line there and there. It reminds me of the type of first 
column (AFAIK) where you tell the 3800 laser printer to use this or that font 
on this or that line.

Any greybeards remembering this 3800 toy? ;-D

>It would be chaotic to produce an instance of each report for each class of 
>output device (printer, 3278, GUI display, etc.)  Semantic markup is the 
>necessary answer. It would likewise be chaotic to undertake conversion of each 
>report generator to generate reports with semantic markup.  A likely better 
>place to do this is in a SYSOUT writer that filters ASA carriage control to a 
>semantic markup language such as HTML, or perhaps XML.  

Agreed 100%. Is there such software [1] ? I'm aware of XML on /zOS, but can you 
use it on a SYSOUT? 

> And it might be unreasonable to expect such a filter to generate proper 
> markup for intended tabular material in reports.  (Does XMITIP, for example, 
> to this?)

Interesting question! Thanks, I wonder what answer you will get?

Thanks Paul for your kind comments. It is much appreciated!

Groete / Greetings
Elardus Engelbrecht

[1] - It seemed to me that LRS/DRS can do this, but then, there is no actual 
printing in this case.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Paul Gilmartin]

On Mon, 30 Apr 2012 05:05:42 -0500, Elardus Engelbrecht wrote:

>Linda Mooney wrote:
>
>>Are you wanting to just rem ove the carraige control, or would you rather 
>>execute and write the ouput out as the finished reports?  You could execute 
>>the cc programmatically or, if you have LRS/DRS ( probably other products 
>>might do similar things).  DRS can be told to ignore carriage control and 
>>write a dataset or it can execute the cc and write a dataset. 
>
>The thing is, these reports are mailed out and the text files are having those 
>unwanted cc on the first column.
> 
In the wider perspective, ASA carriage control was originally a form
of presentational markup targeted at a class of output devices,
impact printers, then preponderant, now dwindling.

It would be chaotic to produce an instance of each report for each
class of output device (printer, 3278, GUI display, etc.)  Semantic
markup is the necessary answer.

It would likewise be chaotic to undertake conversion of each report
generator to generate reports with semantic markup.  A likely better
place to do this is in a SYSOUT writer that filters ASA carriage control
to a semantic markup language such as HTML, or perhaps XML.  (PDF
is targeted to too narrow a class of output devices -- I know of no
PDF renderer for 3278.)  And it might be unreasonable to expect such
a filter to generate proper markup for intended tabular material in
reports.  (Does XMITIP, for example, to this?)

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Elardus Engelbrecht]

Linda Mooney wrote:

>Greetings Elardus. 

Thanks Linda!

>Are you wanting to just rem ove the carraige control, or would you rather 
>execute and write the ouput out as the finished reports?  You could execute 
>the cc programmatically or, if you have LRS/DRS ( probably other products 
>might do similar things).  DRS can be told to ignore carriage control and 
>write a dataset or it can execute the cc and write a dataset.  

The thing is, these reports are mailed out and the text files are having those 
unwanted cc on the first column. 

So, I want to use IBM utilities (RACFRW [1] , IEBGENER, IRRDBU00, IRRADU00, 
ICETOOL, zConsul, SMTP, etc) to produce and send out reports, but somehow I 
wish to clear out column 1 in one or other way [2] before sending out them as 
e-mail text. 

I am still reviewing all the replies (IEBGENER, ICETOOL, DFSORT, text to PDF, 
etc.) and your answer about LRS/DRS to see what I can do with what is 
available. Lots of RTFM and experimenting! :-)

Many thanks for your kind reply. It is much appreciated!

Groete / Greetings 
Elardus Engelbrecht 

[1] - Shhh! Don't ask. I know RACFRW is not recommended for the last gazillion 
years or so.

[2] - Mind you, the auditors don't like 'massaging' those outputs. It means: 
all methods of selecting records and arranging / fixing of outputs headers, 
data and summaries must be easily explained [3] to non z techies... :-D

[3] - I wish I can delegate those explaining to someone else. :-D

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Linda Mooney]

Greetings Elardus. 



Are you wanting to just rem ove the carraige control, or would you rather 
execute and write the ouput out as the finished reports?  You could execute the 
cc programmatically or, if you have LRS/DRS ( probably other products might do 
similar things).  DRS can be told to ignore carriage control and write a 
dataset or it can execute the cc and write a dataset.  



HTH, 



Linda 

- Original Message -


From: "Elardus Engelbrecht"  
To: IBM-MAIN@bama.ua.edu 
Sent: Tuesday, April 24, 2012 7:01:01 AM 
Subject: Strip column 1 from reports 

Good day to all 

Is there a way to strip column 1 from reports, SYSOUT, output from ICETOOL, 
RACFRW, etc? 

As it is now, the method of specifying the ISO/ANSI/FIPS control characters (' 
', '0', '-', '+', '1') [1] is not really used much these days. It makes these 
reports 'dirty', 'ugly', etc. 

Background, I have several jobs with reports from IBM utilities, sort results, 
etc, but these outputs are having those column 1. 

For example, using ICETOOL, despite trying out options and RECFM=FB, my output 
ends up having RECFM=FBA (column 1 with that control characters and other 
columns the report/output) 

Of course I could try out DFSORT with copy everything except column 1. But then 
I had to insert that step everywhere where that column can be eliminated. 
(Something like this: OUTREC FIELDS=(1:1,CHANGE=(1,C'1',C' ')    ) 

Or I could feed those reports in a Assembler program which can do a TR. 
(similar to REXX's TRANSLATE function). 

Was this ever discussed here on IBM-MAIN? Is it possible? Am I overlooking 
something so very simple that it *must* be overlooked? :-D 

Any pointers are absolutely welcomed with gratitude. 

Many thanks in advance. 

Groete / Greetings 
Elardus Engelbrecht 

[1] - ISO/ANSI/FIPS control characters which are in column 1:             
  
b = Space one line (blank code)   
0 = Space two lines   
- = Space three lines 
+ = Suppress space   
1 = Skip to channel 1 

-- 
For IBM-MAIN subscribe / signoff / archive access instructions, 
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Elardus Engelbrecht]

Shmuel Metz (Seymour J.) wrote:
>>Many of my users are receiving these reports via e-mail.

>There are a number of SPOOL to e-mail packages available that can transform 
>data in various ways, including generating PDF attachments from SYSOUT files.

Ah yes, thanks for reminding me about those packages. I have some freebies 
hidden insde my HSM ML2 mountain...

Much appreciated, geez, how could I forgot them!!! Thanks Shmuel for giving me 
more homework. :-D

Just allow me to get my HRECALL spade and dig them out...

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Shmuel Metz (Seymour J.)]

In <1267481572025205.wa.elardus.engelbrechtsita.co...@bama.ua.edu>, on
04/25/2012
   at 06:24 AM, Elardus Engelbrecht 
said:

>Many of my users are receiving these reports via e-mail.

There are a number of SPOOL to e-mail packages available that can
transform data in various ways, including generating PDF attachments
from SYSOUT files.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Elardus Engelbrecht]

To all who replied on this list and privately, many thanks for your kind help.

I'm going to evaluate all of them and come back to you asap.

To David Andrews: Many thanks for your valuable comment about ANSI CC and VPS. 
I will ask one of my VPS colleagues what is available there.

to Ray Mullins: Many of my users are receiving these reports via e-mail. Only a 
handful few can them on ISPF with BROWSE function.  I apologize that I forgot 
to say originally WHERE my users view these reports...

Thanks to all again!

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Frank Yaeger]

Elardus Engelbrecht at IBM Mainframe Discussion List 
wrote on 04/24/2012 07:01:01 AM:
> For example, using ICETOOL, despite trying out options and RECFM=FB,
> my output ends up having RECFM=FBA (column 1 with that control
> characters and other columns the report/output)
>

If you are using the DISPLAY or OCCUR operator of DFSORT's ICETOOL, you can
specify the NOCC operand to remove the carriage control characters.

For DFSORT reports, you can use the REMOVECC operand.

You can use DFSORT's INREC statement to remove the first character from any
file, e.g.

OPTION COPY
INREC BUILD=(2,n)

where n=LRECL-1 (e.g. 2,132 for LRECL=133).

Frank Yaeger - DFSORT Development Team (IBM) - yae...@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration

 => DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Ray Mullins]

On 2012-04-24 07:01, Elardus Engelbrecht wrote:

Good day to all

Is there a way to strip column 1 from reports, SYSOUT, output from ICETOOL, 
RACFRW, etc?


If you use ISPF to browse the output data sets (and only with BROWSE, not 
VIEW), there is a DISPLAY CC|NOCC primary command that works if the RECFM has 
the A or M. This is similar to the SDSF default behavior of starting the 
display at column 2.

Cheers,
Ray

--
M. Ray Mullins
Roseville, CA, USA
http://www.catherdersoftware.com/

German is essentially a form of assembly language consisting entirely of far 
calls heavily accented with throaty guttural sounds. ---ilvi
French is essentially German with messed-up pronunciation and spelling.  
--Robert B Wilson
English is essentially French converted to 7-bit ASCII.  ---Christophe Pierret 
[for Alain LaBonté]

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[Grinsell, Don]

IEBGENER.  Assuming standard 133 byte records this should do the trick:

//REPORT EXEC PGM=REPORT
//SYSPRINT DD DSN=&&SYSOUT,DISP=(,PASS),  
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=133), 
// UNIT=SYSDA,SPACE=(133,(500))   
//*
//IEBGENER EXEC PGM=IEBGENER  
//SYSPRINT DD SYSOUT=*
//SYSINDD *   
   GENERATE MAXFLDS=1
   RECORD FIELD=(132,2,,1)
//SYSUT1   DD DSN=&&SYSOUT,DISP=(OLD,DELETE)  
//SYSUT2   DD SYSOUT=*,   
// DCB=(RECFM=FB,LRECL=132,BLKSIZE=132)   

--
 
Donald Grinsell
State of Montana
406-444-2983
dgrins...@mt.gov

"I'll sleep when I'm dead..."
~ Warren Zevon

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Elardus Engelbrecht
Sent: Tuesday, 24 April 2012 08:01
To: IBM-MAIN@bama.ua.edu
Subject: Strip column 1 from reports

Good day to all

Is there a way to strip column 1 from reports, SYSOUT, output from ICETOOL, 
RACFRW, etc?

As it is now, the method of specifying the ISO/ANSI/FIPS control characters (' 
', '0', '-', '+', '1') [1] is not really used much these days. It makes these 
reports 'dirty', 'ugly', etc.

Background, I have several jobs with reports from IBM utilities, sort results, 
etc, but these outputs are having those column 1.

For example, using ICETOOL, despite trying out options and RECFM=FB, my output 
ends up having RECFM=FBA (column 1 with that control characters and other 
columns the report/output)

Of course I could try out DFSORT with copy everything except column 1. But then 
I had to insert that step everywhere where that column can be eliminated. 
(Something like this: OUTREC FIELDS=(1:1,CHANGE=(1,C'1',C' '))

Or I could feed those reports in a Assembler program which can do a TR. 
(similar to REXX's TRANSLATE function).

Was this ever discussed here on IBM-MAIN? Is it possible? Am I overlooking 
something so very simple that it *must* be overlooked? :-D

Any pointers are absolutely welcomed with gratitude.

Many thanks in advance.

Groete / Greetings
Elardus Engelbrecht

[1] - ISO/ANSI/FIPS control characters which are in column 1:
 
b = Space one line (blank code)   
0 = Space two lines
- = Space three lines 
+ = Suppress space   
1 = Skip to channel 1 

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@bama.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Strip column 1 from reports

[David Andrews]

On Tue, 2012-04-24 at 10:01 -0400, Elardus Engelbrecht wrote:
> Is there a way to strip column 1 from reports, SYSOUT, output from
> ICETOOL, RACFRW, etc?

I think I understand your requirement, but don't have a solution.
Sorry!  But may I comment on your assertion?

> As it is now, the method of specifying the ISO/ANSI/FIPS control
> characters (' ', '0', '-', '+', '1') [1] is not really used much these
> days.

We use ANSI carriage control for everything, always have, and never
bought into IPDS.  VPS (and I guess MacKinney) makes it pretty easy to
conditionally pre-pend printer controls to your datastream in an
application-independent way, which satisfies most of our form-and-flash
requirements.

-- 
David Andrews
A. Duda & Sons, Inc.
david.andr...@duda.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Strip column 1 from reports

[Elardus Engelbrecht]

Good day to all

Is there a way to strip column 1 from reports, SYSOUT, output from ICETOOL, 
RACFRW, etc?

As it is now, the method of specifying the ISO/ANSI/FIPS control characters (' 
', '0', '-', '+', '1') [1] is not really used much these days. It makes these 
reports 'dirty', 'ugly', etc.

Background, I have several jobs with reports from IBM utilities, sort results, 
etc, but these outputs are having those column 1.

For example, using ICETOOL, despite trying out options and RECFM=FB, my output 
ends up having RECFM=FBA (column 1 with that control characters and other 
columns the report/output)

Of course I could try out DFSORT with copy everything except column 1. But then 
I had to insert that step everywhere where that column can be eliminated. 
(Something like this: OUTREC FIELDS=(1:1,CHANGE=(1,C'1',C' '))

Or I could feed those reports in a Assembler program which can do a TR. 
(similar to REXX's TRANSLATE function).

Was this ever discussed here on IBM-MAIN? Is it possible? Am I overlooking 
something so very simple that it *must* be overlooked? :-D

Any pointers are absolutely welcomed with gratitude.

Many thanks in advance.

Groete / Greetings
Elardus Engelbrecht

[1] - ISO/ANSI/FIPS control characters which are in column 1:
 
b = Space one line (blank code)   
0 = Space two lines  
- = Space three lines 
+ = Suppress space   
1 = Skip to channel 1 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN