Re: Second screen in a z/VM CMS session

2010-07-07 Thread Rob van der Heij 
On Thu, Jul 8, 2010 at 8:25 AM, Florian Bilek  wrote:
> Rob,
>
> I would also be interested to get this code.

>>> Another userful thing that does not do what was asked for...  I am
>>> very fond of Perry's SWAPCONS that does fullscreen on a dialed GRAF
>>> and linemode output on your normal terminal. Great if you want to
>>> trace REXX code that drives (XEDIT) full screen.


Perry just reminded me the source is (since 1991!) on VMSHARE:
 http://vm.marist.edu/~vmshare/read?fn=SWAPCONS&ft=NOTE&line=1

If people have trouble building and using it, we might need a package
on the VM Download pages.

R;

Re: Second screen in a z/VM CMS session

2010-07-07 Thread Florian Bilek 
Rob, 

I would also be interested to get this code. 

Florian 


On Wed, 7 Jul 2010 10:41:15 -0400, Alex  wrote:

>is this code available, if so from where?
>
>Alex
>- Original Message -
>From: "Rob van der Heij" 
>To: 
>Sent: Wednesday, July 07, 2010 4:10 AM
>Subject: Re: Second screen in a z/VM CMS session
>
>
>> Another userful thing that does not do what was asked for...  I am
>> very fond of Perry's SWAPCONS that does fullscreen on a dialed GRAF
>> and linemode output on your normal terminal. Great if you want to
>> trace REXX code that drives (XEDIT) full screen.
>>
>> R;
>>
>>
>>
>>
>> ===
>> Email scanned by PC Tools - No viruses or spyware found.
>> (Email Guard: 7.0.0.18, Virus/Spyware Database: 6.15370)
>> http://www.pctools.com/
>> ===

Re: Second screen in a z/VM CMS session

2010-07-07 Thread Alex 

is this code available, if so from where?

Alex
- Original Message - 
From: "Rob van der Heij" 

To: 
Sent: Wednesday, July 07, 2010 4:10 AM
Subject: Re: Second screen in a z/VM CMS session



Another userful thing that does not do what was asked for...  I am
very fond of Perry's SWAPCONS that does fullscreen on a dialed GRAF
and linemode output on your normal terminal. Great if you want to
trace REXX code that drives (XEDIT) full screen.

R;




===
Email scanned by PC Tools - No viruses or spyware found.
(Email Guard: 7.0.0.18, Virus/Spyware Database: 6.15370)
http://www.pctools.com/
===

Re: Sample REXX using XEDIT

2010-07-07 Thread Kris Buelens 
My LOOK can do this all, it is not on the download lib as there are already
so many.  But I sent Sergio a copy

2010/7/7 Sergio Lima 

>  Hello Kris, and all others.
>
> First, thanks very much from all help.
> I imagine, that I'm continue working like a Old programmer.
> Years ago, this problem was solved only with EXEC , or REXX and XEDIT
> macros.
> Your PIPE example, sound well.
> Of course all others opinions also.
> We have for example LOOKALL here, that work very well, but,
> We need a list of all CALL commands used by Cobol programas, and your
> contents, for example :
>
> CALL MYPROG using...
>
> LOOKALL can identify, but, I need edit program by program to see inside the
> program.
>
> Another think, is that CALL command can stay in the range 12-72 COBOL
> Coluns.
>
> We will try understant more about all opinions, but really try clarify more
> our problem.
>
> Thanks,
>
> Sergio
>
> --
> Date: Wed, 7 Jul 2010 16:14:45 +0200
> From: kris.buel...@gmail.com
> Subject: Re: Sample REXX using XEDIT
> To: IBMVM@LISTSERV.UARK.EDU
>
>
> Or maybe
>   'PIPE <' fn ft fm,
> '|SPECS RECNO 1 1-* 12',  /* insert record nbr */
> '| Locate 12-* / CALL /',
> '| ...
>
> 2010/7/7 Sergio Lima 
>
> Hello List,
>
> We need, do here a REXX that will READ a lot of COBOL Programs.
> So, must, locate all "CALL" Statements, and think use XEDIT for this.
> Someone know, if have a place, or a documentation, for us get a sample
> program?
>
> Thanks
>
> Sergio Lima Costa
>
> --
> PARA NAVEGAR COM MAIS PRIVACIDADE USE O INTERNET EXPLORER 8. INSTALE
> GRÁTIS.
>
>
>
>
> --
> Kris Buelens,
> IBM Belgium, VM customer support
>
> --
> PARA NAVEGAR COM MAIS PRIVACIDADE USE O INTERNET EXPLORER 8. INSTALE
> GRÁTIS.
>



-- 
Kris Buelens,
IBM Belgium, VM customer support

Re: XEDIT from a program

2010-07-07 Thread Kris Buelens 
Isn't turned off with SET VERIFY OFF?

2010/7/7 Buettner, Wolfgang 

>   We have a pretty old application that uses XEDIT and macros to
> manipulate files.
>
> It appears that if the target of "locate /string/" is not found the ^
> symbol  is displayed on the console. Not nice, but I can live with that as
> it happens not so often.
>
> However, if and only if the application runs in a DISCONNECT virtual
> machine, also each ":line number" command writes the content of that line to
> the CONSOLE LOG file which adds thousands unneeded ones.
>
> Is there a way to avoid that? Maybe I have overseen something in the books
> …
>
>
>
> Thank you,
>
> Wolfgang
>
>
>Software AG – Sitz/Registered office: Uhlandstraße 12, 64297 Darmstadt,
> Germany, – Registergericht/Commercial register: Darmstadt HRB 1562 -
> Vorstand/ Management Board: Karl-Heinz Streibich (Vorsitzender/Chairman),
> David Broadbent, Mark Edwards, Dr. Peter Kürpick, Ivo Totev, Arnd Zinnhardt;
> - Aufsichtsratsvorsitzender/ Chairman of the Supervisory Board: Dr.
> Andreas Bereczky - *http://www.softwareag.com*
> 
>
>
>


-- 
Kris Buelens,
IBM Belgium, VM customer support

Re: Sample REXX using XEDIT

2010-07-07 Thread Dale R. Smith 
On Wed, 7 Jul 2010 13:26:10 -0500, Frank M. Ramaekers 
 wrote:

>Aren't comments in column 7?  (Sequence 1-6 Continuation/comment column
>7)
>
> 
>Frank M. Ramaekers Jr.

Yes, COBOL comments have an asterisk (*) in column 7.  In order to get th
e 
correct record number for the file, the record number has to be added to 

the record first, then columns 7-72 are copied after the record number, 

then comment records are skipped, (the asterisk will now be in column 8 o
f 
the modified record.

'| SPECS RECNO 1.6 7-72 8',   /* Record Number, Record */
'| NLOCATE 8 /*/',/* Skip Comments */   
 

-- 
Dale R. Smith

Re: Sample REXX using XEDIT

2010-07-07 Thread Sergio Lima 

 

 

HUau..Very Good..

 

We  love this list, 

 

CMDCOB   DATA A1  V 111  Trunc=111 Size=291 Line=1 Col=1 Alt=0 
===>   
 |...+1+2+3+4+5+6+7... 
   1 XPTOPGM  COBOL2010-01-18 16:11:36414 CALL 'XTP03' USING T 
   

Thanks, very, very much..

 

Regards,

 

Sergio Lima Costa
 
> Date: Wed, 7 Jul 2010 12:51:43 -0500
> From: dale-sm...@columbus.rr.com
> Subject: Re: Sample REXX using XEDIT
> To: IBMVM@LISTSERV.UARK.EDU
> 
> On Wed, 7 Jul 2010 16:50:29 +0300, Sergio Lima  =
> 
> wrote:
> 
> >Hello List,
> >
> >We need, do here a REXX that will READ a lot of COBOL Programs.
> >
> >So, must, locate all "CALL" Statements, and think use XEDIT for this.
> >
> >Someone know, if have a place, or a documentation, for us get a sample =
> 
> program?
> >
> >Thanks
> >
> >Sergio Lima Costa
> 
> Here is a quick and dirty Exec that I just wrote that will be close to =
> 
> what you want. Note that ir will find references to "CALL" that may be i=
> n 
> a DISPLAY command as well as the "CALL" instruction. Here is the Exec:
> 
> /**/
> /* COBCALL EXEC */
> /* Scan COBOL Programs and Extract records containing the word "CALL".*/
> /**/
> COBCALL: =
> =
> 
> Address COMMAND =
> =
> 
> Parse Source . ctype ename etype emode . =
> 
> cobcall = ename 'DATA A' =
> =
> 
> Arg fm . =
> =
> 
> If fm = '' Then =
> =
> 
> Do =
> =
> 
> Say 'No Filemode Specified. A Filemode is Required.' =
> 
> Exit 4 =
> =
> 
> End =
> =
> 
> 'CMDCALL ESTATE * COBOL' fm =
> =
> 
> If rc \= 0 Then Exit rc =
> =
> 
> 'PIPE COMMAND LISTFILE * COBOL' fm '(NOHEADER ISODATE'||, =
> 
> '|CHANGE 68 / /0/|SPECS 1-17 1 W8-9 19|STEM PGM.' =
> 
> If rc \= 0 Then Exit rc =
> =
> 
> 'ERASE' cobcall =
> =
> 
> If rc \= 0 & rc \= 28 Then Exit rc =
> =
> 
> totcnt = 0 =
> =
> 
> Do n = 1 to pgm.0 =
> =
> 
> Parse Var pgm.n fn ft date time . =
> 
> 'PIPE (NAME COBCALL ENDCHAR ?)', =
> 
> '| <' fn ft fm, /* Read COBOL Program */ =
> 
> '| SPECS RECNO 1.6 7-72 8', /* Record Number, Record */ =
> 
> '| NLOCATE 8 /*/', /* Skip Comments */ =
> 
> '| LOCATE ANYCASE 8-* / CALL /', /* Look for CALL Commands */ =
> 
> '| SPECS /'pgm.n'/ 1 1-* NW', /* Add File info */ =
> 
> '| C: COUNT LINES', /* Count Records */ =
> 
> '| >>' cobcall, /* Write to file */ =
> 
> '? C:', =
> =
> 
> '| STRLITERAL APPEND /0/', /* Just in Case */ =
> 
> '| VAR RECCNT', /* Record Count */ =
> 
> '' /* End COBCALL */ =
> =
> 
> totcnt = totcnt + reccnt =
> =
> 
> End /* Do n = 1 to pgm.0 */ =
> =
> 
> 'ESTATE' cobcall =
> =
> 
> If rc \= 0 Then =
> =
> 
> Do =
> =
> 
> Say 'No "CALL" Statements Found in COBOL Programs on', =
> 
> 'Filemode' fm'.' =
> =
> 
> Exit 12 =
> =
> 
> End =
> =
> 
> Say totcnt '"CALL" Statements Found in COBOL Programs on', =
> 
> 'Filemode' fm'.' =
> =
> 
> 'XEDIT' cobcall '(NOCLEAR' =
> =
> 
> Exit rc =
> =
> 
> 
> Here is a small sample of output from COBOL Programs on my A-Disk:
> 
> IMSMAIN COBOL 1987-12-03 16:59:18 31 CALL 'IMSSUB'.
> IMSMAIN2 COBOL 1987-12-03 16:46:15 31 CALL 'IMSSUB2'.
> SQLINIT COBOL 2009-04-30 11:36:52 4 CALL 'DSNHADDR' USING =
> 
> SQL-CODEPTR OF SQL-PLIST12 SQLCA.
> SQLINIT COBOL 2009-04-30 11:36:52 5 DISPLAY 'After DB2 Call=
> 
> 1 ' SQL-INIT-FLAG
> SQLINIT COBOL 2009-04-30 11:36:52 6 CALL 'DSNHADDR' USING =
> 
> SQL-CODEPTR OF SQL-PLIST13 SQLCA.
> SQLINIT COBOL 2009-04-30 11:36:52 7 DISPLAY 'After DB2 Call=
> 
> 2 ' SQL-INIT-FLAG
> 
> Notice the DISPLAY statements. The Exec makes a lot of assumptions, so =
> 
> any changes are left as an exercise to the reader! :-)>
> 
> -- 
> Dale R. 
> Smith 
  
_
TRANSFORME SUAS FOTOS EM EMOTICONS PARA O MESSENGER. CLIQUE AQUI PARA COMEÇAR.
http://ilm.windowslive.com.br/?ocid=ILM:Live:Hotmail:Tagline:senDimensao:TRANSFORME78:-

Re: Sample REXX using XEDIT

2010-07-07 Thread Sergio Lima 

Ops..

 

Sorry, working ok...

 

   >>>   "0"
23 *-* totcnt = 0   
   >>>   "0"
24 *-* Do n = 1 to pgm.0
   >>>   "1"
   >>>   "1393" 
25 *-*  Parse Var pgm.n fn ft date time .   
   >>>"ABNSEMAE"
   >>>"COBOL"   
   >>>"2010-01-18"  
   >>>"16:11:36"
   >.>""
26 *-*  'PIPE (NAME COBCALL ENDCHAR ?)','| <' fn ft fm, /* Read COBOL Progra
m */'| SPECS RECNO 1.6 7-72 8', /* Record Number, Record */'| NLOCATE 8 /*/', /*
 Skip Comments */'| LOCATE ANYCASE 8-* / CALL /', /* Look for CALL Commands */'|
 SPECS /'pgm.n'/ 1 1-* NW', /* Add File info */'| C: COUNT LINES', /* Count Reco
rds */'| >>' cobcall, /* Write to file */'? C:','| STRLITERAL APPEND /0/', /* Ju
st in Case */'| VAR RECCNT', /* Record Count */'' /* End COBCALL */ 
   >>>"PIPE (NAME COBCALL ENDCHAR ?) | < ABNSEMAE COBOL A | SPECS RECNO 
1.6 7-72 8 | NLOCATE 8 /*/ | LOCATE ANYCASE 8-* / CALL / | SPECS /ABNSEMAE COBOL
2010-01-18 16:11:36/ 1 1-* NW | C: COUNT LINES | >> CMDCOB DATA A ? C: | STR
LITERAL APPEND /0/ | VAR RECCNT "   
38 *-*  totcnt = totcnt + reccnt
   >>>"4"   
39 *-* End /* Do n = 1 to pgm.0 */  
24 *-* Do n = 1 to pgm.0
25 *-*  Parse Var pgm.n fn ft date time .   
   >>>"ABNSEMAN"
   >>>"COBOL"   
   >>>"2010-01-12"  

HOLDING   GRV   

 

 

Thanks,

 

Sergio
 
> Date: Wed, 7 Jul 2010 12:51:43 -0500
> From: dale-sm...@columbus.rr.com
> Subject: Re: Sample REXX using XEDIT
> To: IBMVM@LISTSERV.UARK.EDU
> 
> On Wed, 7 Jul 2010 16:50:29 +0300, Sergio Lima  =
> 
> wrote:
> 
> >Hello List,
> >
> >We need, do here a REXX that will READ a lot of COBOL Programs.
> >
> >So, must, locate all "CALL" Statements, and think use XEDIT for this.
> >
> >Someone know, if have a place, or a documentation, for us get a sample =
> 
> program?
> >
> >Thanks
> >
> >Sergio Lima Costa
> 
> Here is a quick and dirty Exec that I just wrote that will be close to =
> 
> what you want. Note that ir will find references to "CALL" that may be i=
> n 
> a DISPLAY command as well as the "CALL" instruction. Here is the Exec:
> 
> /**/
> /* COBCALL EXEC */
> /* Scan COBOL Programs and Extract records containing the word "CALL".*/
> /**/
> COBCALL: =
> =
> 
> Address COMMAND =
> =
> 
> Parse Source . ctype ename etype emode . =
> 
> cobcall = ename 'DATA A' =
> =
> 
> Arg fm . =
> =
> 
> If fm = '' Then =
> =
> 
> Do =
> =
> 
> Say 'No Filemode Specified. A Filemode is Required.' =
> 
> Exit 4 =
> =
> 
> End =
> =
> 
> 'CMDCALL ESTATE * COBOL' fm =
> =
> 
> If rc \= 0 Then Exit rc =
> =
> 
> 'PIPE COMMAND LISTFILE * COBOL' fm '(NOHEADER ISODATE'||, =
> 
> '|CHANGE 68 / /0/|SPECS 1-17 1 W8-9 19|STEM PGM.' =
> 
> If rc \= 0 Then Exit rc =
> =
> 
> 'ERASE' cobcall =
> =
> 
> If rc \= 0 & rc \= 28 Then Exit rc =
> =
> 
> totcnt = 0 =
> =
> 
> Do n = 1 to pgm.0 =
> =
> 
> Parse Var pgm.n fn ft date time . =
> 
> 'PIPE (NAME COBCALL ENDCHAR ?)', =
> 
> '| <' fn ft fm, /* Read COBOL Program */ =
> 
> '| SPECS RECNO 1.6 7-72 8', /* Record Number, Record */ =
> 
> '| NLOCATE 8 /*/', /* Skip Comments */ =
> 
> '| LOCATE ANYCASE 8-* / CALL /', /* Look for CALL Commands */ =
> 
> '| SPECS /'pgm.n'/ 1 1-* NW', /* Add File info */ =
> 
> '| C: COUNT LINES', /* Count Records */ =
> 
> '| >>' cobcall, /* Write to file */ =
> 
> '? C:', =
> =
> 
> '| STRLITERAL APPEND /0/', /* Just in Case */ =
> 
> '| VAR RECCNT', /* Record Count */ =
> 
> '' /* End COBCALL */ =
> =
> 
> totcnt = totcnt + reccnt =
> =
> 
> End /* Do n = 1 to pgm.0 */ =
> =
> 
> 'ESTATE' cobcall =
> =
> 
> I

Re: Sample REXX using XEDIT

2010-07-07 Thread Frank M. Ramaekers 
Aren't comments in column 7?  (Sequence 1-6 Continuation/comment column
7)

 
Frank M. Ramaekers Jr.
 
 
-Original Message-
From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On
Behalf Of Dale R. Smith
Sent: Wednesday, July 07, 2010 12:52 PM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: Sample REXX using XEDIT

On Wed, 7 Jul 2010 16:50:29 +0300, Sergio Lima 

wrote:

>Hello List,
>
>We need, do here a REXX that will READ a lot of COBOL Programs.
>
>So, must, locate all "CALL" Statements, and think use XEDIT for this.
>
>Someone know, if have a place, or a documentation, for us get a sample 
program?
>
>Thanks
>
>Sergio Lima Costa

Here is a quick and dirty Exec that I just wrote that will be close to 
what you want.  Note that ir will find references to "CALL" that may be
in 
a DISPLAY command as well as the "CALL" instruction.  Here is the Exec:

/**/
/*COBCALL EXEC*/
/* Scan COBOL Programs and Extract records containing the word "CALL".*/
/**/
COBCALL:
   Address COMMAND  
   Parse Source . ctype ename etype emode . 
   cobcall = ename 'DATA A' 
   Arg fm . 
   If fm = '' Then  
  Do
 Say 'No Filemode Specified.  A Filemode is Required.'  
 Exit 4 
  End   
   'CMDCALL ESTATE * COBOL' fm  
   If rc \= 0 Then Exit rc  
   'PIPE COMMAND LISTFILE * COBOL' fm '(NOHEADER ISODATE'||,
  '|CHANGE 68 / /0/|SPECS 1-17 1 W8-9 19|STEM PGM.' 
   If rc \= 0 Then Exit rc  
   'ERASE' cobcall  
   If rc \= 0 & rc \= 28 Then Exit rc   
   totcnt = 0   
   Do n = 1 to pgm.0
  Parse Var pgm.n fn ft date time . 
  'PIPE (NAME COBCALL ENDCHAR ?)',  
 '| <' fn ft fm,   /* Read COBOL Program */ 
 '| SPECS RECNO 1.6 7-72 8',   /* Record Number, Record */  
 '| NLOCATE 8 /*/',/* Skip Comments */  
 '| LOCATE ANYCASE 8-* / CALL /',  /* Look for CALL Commands */ 
 '| SPECS /'pgm.n'/ 1 1-* NW', /* Add File info */  
 '| C: COUNT LINES',   /* Count Records */  
 '| >>' cobcall,   /* Write to file */  
  '? C:',   
 '| STRLITERAL APPEND /0/',/* Just in Case */   
 '| VAR RECCNT',   /* Record Count */   
  '' /* End COBCALL */  
  totcnt = totcnt + reccnt  
   End /* Do n = 1 to pgm.0 */  
   'ESTATE' cobcall 
   If rc \= 0 Then  
  Do
 Say 'No "CALL" Statements Found in COBOL Programs on', 
 'Filemode' fm'.'   
 Exit 12
  End   
   Say totcnt '"CALL" Statements Found in COBOL Programs on',   
   'Filemode' fm'.' 
   'XEDIT' cobcall '(NOCLEAR'   
   Exit rc  

Here is a small sample of output from COBOL Programs on my A-Disk:

IMSMAIN  COBOL1987-12-03 16:59:18 31  CALL 'IMSSUB'.
IMSMAIN2 COBOL1987-12-03 16:46:15 31  CALL 'IMSSUB2'.
SQLINIT  COBOL2009-04-30 11:36:52  4  CALL 'DSNHADDR' USING 
SQL-CODEPTR OF SQL-PLIST12 SQLCA.
SQLINIT  COBOL2009-04-30 11:36:52  5  DISPLAY 'After DB2
Call  
1 ' SQL-INIT-FLAG
SQLINIT  COBOL2009-04-30 11:36:52  6  CALL 'DSNHADDR' USING 
SQL-CODEPTR OF SQL-PLIST13 SQLCA.
SQLINIT  COBOL2009-04-30 11:3

Re: Sample REXX using XEDIT

2010-07-07 Thread Sergio Lima 

Hello,

 

Thanks very much,

 

It's all waht We need, very good.

 

But, Trying running unexpected problem, look please :

 

Ready; T=0.06/0.07 15:17:05  

   
cobcall a   
 6 *-* COBCALL: 
 7 *-* Address COMMAND  
 9 *-* Parse Source . ctype ename etype emode . 
   >.>   "CMS"  
   >>>   "COMMAND"  
   >>>   "COBCALL"  
   >>>   "EXEC" 
   >>>   "A1"   
   >.>   "cobcall CMS"  
11 *-* cobcall = ename 'DATA A' 
   >>>   "COBCALL DATA A"   
13 *-* Arg fm . 
   >>>   "A"
   >.>   "" 
15 *-* If fm = ''   
   >>>   "0"
25 *-* 'CMDCALL ESTATE * COBOL' fm  
   >>>   "CMDCALL ESTATE * COBOL A" 
27 *-* If rc \= 0   
   >>>   "0"
29 *-* 'PIPE COMMAND LISTFILE * COBOL' fm '(NOHEADER ISODATE'||,
29 +++ 'PIPE COMMAND LISTFILE * COBOL' fm '(NOHEADER ISODATE'||,
DMSREX471E Error 35 running COBCALL EXEC, line 29: Invalid expression   
Ready(20035); T=0.01/0.01 15:17:08  

 

May be, some mistake here ...

 

Can you help (more) please ?

 

Thanks,

 

Sergio
 
> Date: Wed, 7 Jul 2010 12:51:43 -0500
> From: dale-sm...@columbus.rr.com
> Subject: Re: Sample REXX using XEDIT
> To: IBMVM@LISTSERV.UARK.EDU
> 
> On Wed, 7 Jul 2010 16:50:29 +0300, Sergio Lima  =
> 
> wrote:
> 
> >Hello List,
> >
> >We need, do here a REXX that will READ a lot of COBOL Programs.
> >
> >So, must, locate all "CALL" Statements, and think use XEDIT for this.
> >
> >Someone know, if have a place, or a documentation, for us get a sample =
> 
> program?
> >
> >Thanks
> >
> >Sergio Lima Costa
> 
> Here is a quick and dirty Exec that I just wrote that will be close to =
> 
> what you want. Note that ir will find references to "CALL" that may be i=
> n 
> a DISPLAY command as well as the "CALL" instruction. Here is the Exec:
> 
> /**/
> /* COBCALL EXEC */
> /* Scan COBOL Programs and Extract records containing the word "CALL".*/
> /**/
> COBCALL: =
> =
> 
> Address COMMAND =
> =
> 
> Parse Source . ctype ename etype emode . =
> 
> cobcall = ename 'DATA A' =
> =
> 
> Arg fm . =
> =
> 
> If fm = '' Then =
> =
> 
> Do =
> =
> 
> Say 'No Filemode Specified. A Filemode is Required.' =
> 
> Exit 4 =
> =
> 
> End =
> =
> 
> 'CMDCALL ESTATE * COBOL' fm =
> =
> 
> If rc \= 0 Then Exit rc =
> =
> 
> 'PIPE COMMAND LISTFILE * COBOL' fm '(NOHEADER ISODATE'||, =
> 
> '|CHANGE 68 / /0/|SPECS 1-17 1 W8-9 19|STEM PGM.' =
> 
> If rc \= 0 Then Exit rc =
> =
> 
> 'ERASE' cobcall =
> =
> 
> If rc \= 0 & rc \= 28 Then Exit rc =
> =
> 
> totcnt = 0 =
> =
> 
> Do n = 1 to pgm.0 =
> =
> 
> Parse Var pgm.n fn ft date time . =
> 
> 'PIPE (NAME COBCALL ENDCHAR ?)', =
> 
> '| <' fn ft fm, /* Read COBOL Program */ =
> 
> '| SPECS RECNO 1.6 7-72 8', /* Record Number, Record */ =
> 
> '| NLOCATE 8 /*/', /* Skip Comments */ =
> 
> '| LOCATE ANYCASE 8-* / CALL /', /* Look for CALL Commands */ =
> 
> '| SPECS /'pgm.n'/ 1 1-* NW', /* Add File info */ =
> 
> '| C: COUNT LINES', /* Count Records */ =
> 
> '| >>' cobcall, /* Write to file */ =
> 
> '? C:', =
> =
> 
> '| STRLITERAL APPEND /0/', /* Just in Case */ =
> 
> '| VAR RECCNT', /* Record Count */ =
> 
> '' /* End COBCALL */ =
> =
> 
> totcnt = totcnt + reccnt =
> =
> 
> End /* Do n = 1 to pgm.0 */ =
> =
> 
> 'ESTATE' cobcall =
> =
> 
> If rc \= 0 Then =
> =
> 
> Do =
> =
> 
> Say 'No "CALL" Statements Found in COBOL Programs on', =
> 
> 'Filemode' fm'.' =
> =
> 
> Exit 12 =
> =
> 
> End =
> =
> 
> Say totcnt '"CALL" Statements Found in COBOL Programs on', =
> 
> 'Filemode' fm'.' =
> =
> 
> 'XEDIT' cobcall '(NOCLEAR' =
> =
> 
> Exit rc =
> =
> 
> 
> Here is a small sample of output from COBOL Programs on my A-Disk:
> 
> IMSMAIN COBOL 1987-12-03 16:59:18 31 CALL 'I

Re: RFEX EXEC Question

2010-07-07 Thread Hughes, Jim 
Spot on.

Thanks Richard.


Jim Hughes
603-271-5586
"It is fun to do the impossible."

-Original Message-
From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf 
Of Schuh, Richard
Sent: Wednesday, July 07, 2010 2:06 PM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: RFEX EXEC Question

No, it was the address command doing its thing to insure a pristine 
environment. When you are in an address command, it is assumed that any command 
directed to an environment (CP, EXEC, XEDIT, etc.) will be prefaced by the 
environment's name. Any command not so prefaced will be sent to CMS to be 
executed without trying to resolve an environment. It has the same effect as 
turning IMPCP and IMPEX off without actually doing it. If you query IMPCP and 
IMPEX,  they will be ON even though the action within the EXEC is as though 
they were OFF.

Regards, 
Richard Schuh 

 

> -Original Message-
> From: The IBM z/VM Operating System 
> [mailto:ib...@listserv.uark.edu] On Behalf Of Hughes, Jim
> Sent: Wednesday, July 07, 2010 10:15 AM
> To: IBMVM@LISTSERV.UARK.EDU
> Subject: Re: RFEX EXEC Question
> 
> Issue this command "CMS QUERY IMPCP" and "CMS QUERY IMPEX"
> 
> It looks like you have set both of these CMS items to OFF.
> 
> Good Luck.
> 
> 
> 
> Jim Hughes
> 603-271-5586
> "It is fun to do the impossible."
> 
> -Original Message-
> From: The IBM z/VM Operating System 
> [mailto:ib...@listserv.uark.edu] On Behalf Of Wandschneider, Scott
> Sent: Wednesday, July 07, 2010 12:59 PM
> To: IBMVM@LISTSERV.UARK.EDU
> Subject: RFEX EXEC Question
> 
> I have a REXX EXEC that process files in the reader.  I begin 
> the EXEC with:
> Address Command
> 
> I have a sleep instruction that gets the following:
>35 *-* "SLEEP 30 SEC"  
>   >L>   "SLEEP 30 SEC"
>   +++ RC(-3) +++  
> 
> Also I have a sendfile instruction with the following results:
>>O>  "SENDFILE DH_VDUMP SM070710 Z To SYBLOG 
> AT ZVM5VSE (LOG TYPE" 
>+++ RC(-3) +++ 
>
> 
> What am I missing?
> 
> Thank you,
> Scott R Wandschneider
> Senior Systems Programmer|| Infocrossing, a Wipro Company 
> scott.wandschnei...@infocrossing.com **Think Green  - Please 
> print responsibly**
> 
> 
> Confidentiality Note: This e-mail, including any attachment 
> to it, may contain material that is confidential, 
> proprietary, privileged and/or "Protected Health 
> Information," within the meaning of the regulations under the 
> Health Insurance Portability & Accountability Act as amended. 
>  If it is not clear that you are the intended recipient, you 
> are hereby notified that you have received this transmittal 
> in error, and any review, dissemination, distribution or 
> copying of this e-mail, including any attachment to it, is 
> strictly prohibited. If you have received this e-mail in 
> error, please immediately return it to the sender and delete 
> it from your system. Thank you.
>

Re: RFEX EXEC Question

2010-07-07 Thread Schuh, Richard 
No, it was the address command doing its thing to insure a pristine 
environment. When you are in an address command, it is assumed that any command 
directed to an environment (CP, EXEC, XEDIT, etc.) will be prefaced by the 
environment's name. Any command not so prefaced will be sent to CMS to be 
executed without trying to resolve an environment. It has the same effect as 
turning IMPCP and IMPEX off without actually doing it. If you query IMPCP and 
IMPEX,  they will be ON even though the action within the EXEC is as though 
they were OFF.

Regards, 
Richard Schuh 

 

> -Original Message-
> From: The IBM z/VM Operating System 
> [mailto:ib...@listserv.uark.edu] On Behalf Of Hughes, Jim
> Sent: Wednesday, July 07, 2010 10:15 AM
> To: IBMVM@LISTSERV.UARK.EDU
> Subject: Re: RFEX EXEC Question
> 
> Issue this command "CMS QUERY IMPCP" and "CMS QUERY IMPEX"
> 
> It looks like you have set both of these CMS items to OFF.
> 
> Good Luck.
> 
> 
> 
> Jim Hughes
> 603-271-5586
> "It is fun to do the impossible."
> 
> -Original Message-
> From: The IBM z/VM Operating System 
> [mailto:ib...@listserv.uark.edu] On Behalf Of Wandschneider, Scott
> Sent: Wednesday, July 07, 2010 12:59 PM
> To: IBMVM@LISTSERV.UARK.EDU
> Subject: RFEX EXEC Question
> 
> I have a REXX EXEC that process files in the reader.  I begin 
> the EXEC with:
> Address Command
> 
> I have a sleep instruction that gets the following:
>35 *-* "SLEEP 30 SEC"  
>   >L>   "SLEEP 30 SEC"
>   +++ RC(-3) +++  
> 
> Also I have a sendfile instruction with the following results:
>>O>  "SENDFILE DH_VDUMP SM070710 Z To SYBLOG 
> AT ZVM5VSE (LOG TYPE" 
>+++ RC(-3) +++ 
>
> 
> What am I missing?
> 
> Thank you,
> Scott R Wandschneider
> Senior Systems Programmer|| Infocrossing, a Wipro Company 
> scott.wandschnei...@infocrossing.com **Think Green  - Please 
> print responsibly**
> 
> 
> Confidentiality Note: This e-mail, including any attachment 
> to it, may contain material that is confidential, 
> proprietary, privileged and/or "Protected Health 
> Information," within the meaning of the regulations under the 
> Health Insurance Portability & Accountability Act as amended. 
>  If it is not clear that you are the intended recipient, you 
> are hereby notified that you have received this transmittal 
> in error, and any review, dissemination, distribution or 
> copying of this e-mail, including any attachment to it, is 
> strictly prohibited. If you have received this e-mail in 
> error, please immediately return it to the sender and delete 
> it from your system. Thank you.
>

Re: Sample REXX using XEDIT

2010-07-07 Thread Dale R. Smith 
On Wed, 7 Jul 2010 16:50:29 +0300, Sergio Lima  

wrote:

>Hello List,
>
>We need, do here a REXX that will READ a lot of COBOL Programs.
>
>So, must, locate all "CALL" Statements, and think use XEDIT for this.
>
>Someone know, if have a place, or a documentation, for us get a sample 

program?
>
>Thanks
>
>Sergio Lima Costa

Here is a quick and dirty Exec that I just wrote that will be close to 

what you want.  Note that ir will find references to "CALL" that may be i
n 
a DISPLAY command as well as the "CALL" instruction.  Here is the Exec:

/**/
/*COBCALL EXEC*/
/* Scan COBOL Programs and Extract records containing the word "CALL".*/
/**/
COBCALL:  
 
 
   Address COMMAND   
 
  
   Parse Source . ctype ename etype emode .  
   
   cobcall = ename 'DATA A'   
 
 
   Arg fm . 
 
   
   If fm = '' Then  
 
   
  Do  
 
 
 Say 'No Filemode Specified.  A Filemode is Required.'
  
 Exit 4
 

  End  
 

   'CMDCALL ESTATE * COBOL' fm   
 
  
   If rc \= 0 Then Exit rc   
 
  
   'PIPE COMMAND LISTFILE * COBOL' fm '(NOHEADER ISODATE'||, 
   
  '|CHANGE 68 / /0/|SPECS 1-17 1 W8-9 19|STEM PGM.'  
   
   If rc \= 0 Then Exit rc   
 
  
   'ERASE' cobcall   
 
  
   If rc \= 0 & rc \= 28 Then Exit rc  
 

   totcnt = 0
 
  
   Do n = 1 to pgm.0 
 
  
  Parse Var pgm.n fn ft date time .
 
  'PIPE (NAME COBCALL ENDCHAR ?)',
  
 '| <' fn ft fm,   /* Read COBOL Program */  
   
 '| SPECS RECNO 1.6 7-72 8',   /* Record Number, Record */ 
 
 '| NLOCATE 8 /*/',/* Skip Comments */
  
 '| LOCATE ANYCASE 8-* / CALL /',  /* Look for CALL Commands */ 

 '| SPECS /'pgm.n'/ 1 1-* NW', /* Add File info */
  
 '| C: COUNT LINES',   /* Count Records */
  
 '| >>' cobcall,   /* Write to file */
  
  '? C:',
 
  
 '| STRLITERAL APPEND /0/',/* Just in Case */
   
 '| VAR RECCNT',   /* Record Count */
   
  '' /* End COBCALL */
 
 
  totcnt = totcnt + reccnt  
 
   
   End /* Do n = 1 to pgm.0 */  
 
   
   'ESTATE' cobcall  
 
  
   If rc \= 0 Then  
 
   
  Do  
 
 
 Say 'No "CALL" Statements Found in COBOL Programs on',
 
 'Filemode' fm'.'   
 
   
 Exit 12   
 

  End  
 

   Say totcnt '"CALL" Statements Found in COBOL Programs on',
   
   'Filemode' fm'.' 
 
   
   'XEDIT' cobcall '(NOCLEAR'   
 
   
   Exit rc 
 


Here is a small sample of output from COBOL Programs on my A-Disk:

IMSMAIN  COBOL1987-12-03 16:59:18 31  CALL 'IMSSUB'.
IMSMAIN2 COBOL1987-12-03 16:46:15 31  CALL 'IMSSUB2'.
SQLINIT  COBOL2009-04-30 11:36:52  4  CALL 'DSNHADDR' USING 

SQL-CODEPTR OF SQL-PLIST12 SQLCA.
SQLINIT  COBOL2009-04-30 11:36:52  5  DISPLAY 'After DB2 Call
  
1 ' SQL-INIT-FLAG
SQLINIT  COBOL2009-04-30 11:36:52  6  CALL 'DSNHADDR' USING 

SQL-CODEPTR OF SQL-PLIST13 SQLCA.
SQLINIT  COBOL2009-04-30 11:36:52  7  DISPLAY 'After DB2 Call
  
2 ' SQL-INIT-FLAG

Notice the DISPLAY statements.  The Exec makes a lot of assumptions, so 

any changes are left as an exercise to the reader!  :-)>

-- 
Dale R. 
Smith

Re: RFEX EXEC Question

2010-07-07 Thread Wandschneider, Scott 
CMS QUERY IMPCP  
Unknown CP/CMS command 
CMS QUERY IMPEX  
Unknown CP/CMS command   
  
QUERY IMPCP  
IMPCP= ON
 Ready; T=0.01/0.01 13:28:27  
QUERY IMPEX  
IMPEX= ON
 Ready; T=0.01/0.01 13:28:27  
 

Thank you,

Scott


-Original Message-
From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf 
Of Hughes, Jim
Sent: Wednesday, July 07, 2010 12:15 PM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: RFEX EXEC Question

Issue this command "CMS QUERY IMPCP" and "CMS QUERY IMPEX"

It looks like you have set both of these CMS items to OFF.

Good Luck.



Jim Hughes
603-271-5586
"It is fun to do the impossible."

-Original Message-
From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf 
Of Wandschneider, Scott
Sent: Wednesday, July 07, 2010 12:59 PM
To: IBMVM@LISTSERV.UARK.EDU
Subject: RFEX EXEC Question

I have a REXX EXEC that process files in the reader.  I begin the EXEC with:
Address Command

I have a sleep instruction that gets the following:
   35 *-* "SLEEP 30 SEC"  
  >L>   "SLEEP 30 SEC"
  +++ RC(-3) +++  

Also I have a sendfile instruction with the following results:
   >O>  "SENDFILE DH_VDUMP SM070710 Z To SYBLOG AT ZVM5VSE (LOG 
TYPE" 
   +++ RC(-3) +++   
 

What am I missing?

Thank you,
Scott R Wandschneider
Senior Systems Programmer|| Infocrossing, a Wipro 
company scott.wandschnei...@infocrossing.com **Think Green  - Please print 
responsibly**


Confidentiality Note: This e-mail, including any attachment to it, may contain 
material that is confidential, proprietary, privileged and/or "Protected Health 
Information," within the meaning of the regulations under the Health Insurance 
Portability & Accountability Act as amended.  If it is not clear that you are 
the intended recipient, you are hereby notified that you have received this 
transmittal in error, and any review, dissemination, distribution or copying of 
this e-mail, including any attachment to it, is strictly prohibited. If you 
have received this e-mail in error, please immediately return it to the sender 
and delete it from your system. Thank you.

Confidentiality Note: This e-mail, including any attachment to it, may contain 
material that is confidential, proprietary, privileged and/or "Protected Health 
Information," within the meaning of the regulations under the Health Insurance 
Portability & Accountability Act as amended.  If it is not clear that you are 
the intended recipient, you are hereby notified that you have received this 
transmittal in error, and any review, dissemination, distribution or copying of 
this e-mail, including any attachment to it, is strictly prohibited. If you 
have received this e-mail in error, please immediately return it to the sender 
and delete it from your system. Thank you.

Re: RFEX EXEC Question

2010-07-07 Thread Hughes, Jim 
Issue this command "CMS QUERY IMPCP" and "CMS QUERY IMPEX"

It looks like you have set both of these CMS items to OFF.

Good Luck.



Jim Hughes
603-271-5586
"It is fun to do the impossible."

-Original Message-
From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf 
Of Wandschneider, Scott
Sent: Wednesday, July 07, 2010 12:59 PM
To: IBMVM@LISTSERV.UARK.EDU
Subject: RFEX EXEC Question

I have a REXX EXEC that process files in the reader.  I begin the EXEC with:
Address Command

I have a sleep instruction that gets the following:
   35 *-* "SLEEP 30 SEC"  
  >L>   "SLEEP 30 SEC"
  +++ RC(-3) +++  

Also I have a sendfile instruction with the following results:
   >O>  "SENDFILE DH_VDUMP SM070710 Z To SYBLOG AT ZVM5VSE (LOG 
TYPE" 
   +++ RC(-3) +++   
 

What am I missing?

Thank you,
Scott R Wandschneider
Senior Systems Programmer|| Infocrossing, a Wipro 
company scott.wandschnei...@infocrossing.com **Think Green  - Please print 
responsibly**


Confidentiality Note: This e-mail, including any attachment to it, may contain 
material that is confidential, proprietary, privileged and/or "Protected Health 
Information," within the meaning of the regulations under the Health Insurance 
Portability & Accountability Act as amended.  If it is not clear that you are 
the intended recipient, you are hereby notified that you have received this 
transmittal in error, and any review, dissemination, distribution or copying of 
this e-mail, including any attachment to it, is strictly prohibited. If you 
have received this e-mail in error, please immediately return it to the sender 
and delete it from your system. Thank you.

Re: RFEX EXEC Question

2010-07-07 Thread Wandschneider, Scott 
zMan and Neale,

 

Thank you very much that fixed it.   

 

Thank you,

 

Scott

 

From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On
Behalf Of zMan
Sent: Wednesday, July 07, 2010 12:03 PM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: RFEX EXEC Question

 

SLEEP is a CP command.

When you use ADDRESS COMMAND, you say "I know what I'm doing here, I'll
prefix any commands with CP or EXEC as appropriate".

On Wed, Jul 7, 2010 at 12:59 PM, Wandschneider, Scott
 wrote:

I have a REXX EXEC that process files in the reader.  I begin the EXEC
with:
Address Command

I have a sleep instruction that gets the following:
  35 *-* "SLEEP 30 SEC"
 >L>   "SLEEP 30 SEC"
 +++ RC(-3) +++

Also I have a sendfile instruction with the following results:
  >O>  "SENDFILE DH_VDUMP SM070710 Z To SYBLOG AT ZVM5VSE
(LOG TYPE"
  +++ RC(-3) +++

What am I missing?

Thank you,
Scott R Wandschneider
Senior Systems Programmer|| Infocrossing, a Wipro Company
scott.wandschnei...@infocrossing.com **Think Green  - Please print
responsibly**


Confidentiality Note: This e-mail, including any attachment to it, may
contain material that is confidential, proprietary, privileged and/or
"Protected Health Information," within the meaning of the regulations
under the Health Insurance Portability & Accountability Act as amended.
If it is not clear that you are the intended recipient, you are hereby
notified that you have received this transmittal in error, and any
review, dissemination, distribution or copying of this e-mail, including
any attachment to it, is strictly prohibited. If you have received this
e-mail in error, please immediately return it to the sender and delete
it from your system. Thank you.




-- 
zMan -- "I've got a mainframe and I'm not afraid to use it"



Confidentiality Note: This e-mail, including any attachment to it, may contain 
material that is confidential, proprietary, privileged and/or "Protected Health 
Information," within the meaning of the regulations under the Health Insurance 
Portability & Accountability Act as amended.  If it is not clear that you are 
the intended recipient, you are hereby notified that you have received this 
transmittal in error, and any review, dissemination, distribution or copying of 
this e-mail, including any attachment to it, is strictly prohibited. If you 
have received this e-mail in error, please immediately return it to the sender 
and delete it from your system. Thank you.

Re: RFEX EXEC Question

2010-07-07 Thread Neale Ferguson 
'EXEC SENDFILE '
 or proceed the command with address CMS

The 'address command' "prevents" REXX (CMS actually) from looking for EXECs 
when it encounters a command.

On 7/7/10 12:59 PM, "Wandschneider, Scott" 
 wrote:

I have a REXX EXEC that process files in the reader.  I begin the EXEC with:
Address Command

I have a sleep instruction that gets the following:
   35 *-* "SLEEP 30 SEC"
  >L>   "SLEEP 30 SEC"
  +++ RC(-3) +++

Also I have a sendfile instruction with the following results:
   >O>  "SENDFILE DH_VDUMP SM070710 Z To SYBLOG AT ZVM5VSE (LOG 
TYPE"
   +++ RC(-3) +++

What am I missing?

Re: RFEX EXEC Question

2010-07-07 Thread zMan 
SLEEP is a CP command.

When you use ADDRESS COMMAND, you say "I know what I'm doing here, I'll
prefix any commands with CP or EXEC as appropriate".

On Wed, Jul 7, 2010 at 12:59 PM, Wandschneider, Scott <
scott.wandschnei...@infocrossing.com> wrote:

> I have a REXX EXEC that process files in the reader.  I begin the EXEC
> with:
> Address Command
>
> I have a sleep instruction that gets the following:
>   35 *-* "SLEEP 30 SEC"
>  >L>   "SLEEP 30 SEC"
>  +++ RC(-3) +++
>
> Also I have a sendfile instruction with the following results:
>   >O>  "SENDFILE DH_VDUMP SM070710 Z To SYBLOG AT ZVM5VSE (LOG
> TYPE"
>   +++ RC(-3) +++
>
> What am I missing?
>
> Thank you,
> Scott R Wandschneider
> Senior Systems Programmer|| Infocrossing, a Wipro Company
> scott.wandschnei...@infocrossing.com **Think Green  - Please print
> responsibly**
>
>
> Confidentiality Note: This e-mail, including any attachment to it, may
> contain material that is confidential, proprietary, privileged and/or
> "Protected Health Information," within the meaning of the regulations under
> the Health Insurance Portability & Accountability Act as amended.  If it is
> not clear that you are the intended recipient, you are hereby notified that
> you have received this transmittal in error, and any review, dissemination,
> distribution or copying of this e-mail, including any attachment to it, is
> strictly prohibited. If you have received this e-mail in error, please
> immediately return it to the sender and delete it from your system. Thank
> you.
>



-- 
zMan -- "I've got a mainframe and I'm not afraid to use it"

RFEX EXEC Question

2010-07-07 Thread Wandschneider, Scott 
I have a REXX EXEC that process files in the reader.  I begin the EXEC with:
Address Command

I have a sleep instruction that gets the following:
   35 *-* "SLEEP 30 SEC"  
  >L>   "SLEEP 30 SEC"
  +++ RC(-3) +++  

Also I have a sendfile instruction with the following results:
   >O>  "SENDFILE DH_VDUMP SM070710 Z To SYBLOG AT ZVM5VSE (LOG 
TYPE" 
   +++ RC(-3) +++   
 

What am I missing?

Thank you,
Scott R Wandschneider
Senior Systems Programmer|| Infocrossing, a Wipro 
company scott.wandschnei...@infocrossing.com **Think Green  - Please print 
responsibly**


Confidentiality Note: This e-mail, including any attachment to it, may contain 
material that is confidential, proprietary, privileged and/or "Protected Health 
Information," within the meaning of the regulations under the Health Insurance 
Portability & Accountability Act as amended.  If it is not clear that you are 
the intended recipient, you are hereby notified that you have received this 
transmittal in error, and any review, dissemination, distribution or copying of 
this e-mail, including any attachment to it, is strictly prohibited. If you 
have received this e-mail in error, please immediately return it to the sender 
and delete it from your system. Thank you.

Re: XEDIT from a program

2010-07-07 Thread Sergio Lima 

Hello Mr. Wolfgang.

 

Yes, this is what i'm searching for.

 

Can you please send a copy, or a sample ?

 

Thanks

 

Sergio
 


Date: Wed, 7 Jul 2010 17:12:06 +0200
From: wolfgang.buett...@softwareag.com
Subject: XEDIT from a program
To: IBMVM@LISTSERV.UARK.EDU




We have a pretty old application that uses XEDIT and macros to manipulate 
files. 
It appears that if the target of "locate /string/" is not found the ^ symbol  
is displayed on the console. Not nice, but I can live with that as it happens 
not so often. 
However, if and only if the application runs in a DISCONNECT virtual machine, 
also each ":line number" command writes the content of that line to the CONSOLE 
LOG file which adds thousands unneeded ones.
Is there a way to avoid that? Maybe I have overseen something in the books …
 
Thank you,
Wolfgang 

 





Software AG – Sitz/Registered office: Uhlandstraße 12, 64297 Darmstadt, 
Germany, – Registergericht/Commercial register: Darmstadt HRB 1562 - Vorstand/ 
Management Board: Karl-Heinz Streibich (Vorsitzender/Chairman), David 
Broadbent, Mark Edwards, Dr. Peter Kürpick, Ivo Totev, Arnd Zinnhardt; - 
Aufsichtsratsvorsitzender/ Chairman of the Supervisory Board: Dr. Andreas 
Bereczky - http://www.softwareag.com 
 

  
_
TRANSFORME SUAS FOTOS EM EMOTICONS PARA O MESSENGER. CLIQUE AQUI PARA COMEÇAR.
http://ilm.windowslive.com.br/?ocid=ILM:Live:Hotmail:Tagline:senDimensao:TRANSFORME78:-

XEDIT from a program

2010-07-07 Thread Phil Smith III 
Buettner, Wolfgang wrote:
>We have a pretty old application that uses XEDIT and macros to manipulate 
>files. 

>It appears that if the target of "locate /string/" is not found the ^ symbol  
>is displayed on the console. Not nice, but I can live with that as it happens 
>not so often. 

>However, if and only if the application runs in a DISCONNECT virtual machine, 
>also each ":line number" command writes the content of that line to the 
>CONSOLE LOG file which adds thousands unneeded ones.

>Is there a way to avoid that? Maybe I have overseen something in the books .

The ^ symbol is because MSGMODE is SHORT. Use SET MSGMODE OFF to suppress it 
(and turn it back on after the LOCATE command, or you won't see any messages!)

The contents of the lines appearing is because VERIFY is ON. Use SET VERIFY OFF 
to suppress it.

...phsiii

XEDIT from a program

2010-07-07 Thread Buettner, Wolfgang 
We have a pretty old application that uses XEDIT and macros to
manipulate files.

It appears that if the target of "locate /string/" is not found the ^
symbol  is displayed on the console. Not nice, but I can live with that
as it happens not so often.

However, if and only if the application runs in a DISCONNECT virtual
machine, also each ":line number" command writes the content of that
line to the CONSOLE LOG file which adds thousands unneeded ones.

Is there a way to avoid that? Maybe I have overseen something in the
books ...



Thank you,

Wolfgang



Software AG - Sitz/Registered office: Uhlandstra?e 12, 64297 Darmstadt, 
Germany, - Registergericht/Commercial register: Darmstadt HRB 1562 - Vorstand/ 
Management Board: Karl-Heinz Streibich (Vorsitzender/Chairman), David 
Broadbent, Mark Edwards, Dr. Peter Kurpick, Ivo Totev, Arnd Zinnhardt; - 
Aufsichtsratsvorsitzender/ Chairman of the Supervisory Board: Dr. Andreas 
Bereczky - http://www.softwareag.com/

Re: Sample REXX using XEDIT

2010-07-07 Thread Sergio Lima 

Hello Kris, and all others.

 

First, thanks very much from all help.

I imagine, that I'm continue working like a Old programmer.

Years ago, this problem was solved only with EXEC , or REXX and XEDIT macros.

Your PIPE example, sound well.

Of course all others opinions also.

We have for example LOOKALL here, that work very well, but,

We need a list of all CALL commands used by Cobol programas, and your contents, 
for example :

 

CALL MYPROG using...

 

LOOKALL can identify, but, I need edit program by program to see inside the 
program.

 

Another think, is that CALL command can stay in the range 12-72 COBOL Coluns.

 

We will try understant more about all opinions, but really try clarify more our 
problem.

 

Thanks,

 

Sergio
 


Date: Wed, 7 Jul 2010 16:14:45 +0200
From: kris.buel...@gmail.com
Subject: Re: Sample REXX using XEDIT
To: IBMVM@LISTSERV.UARK.EDU

Or maybe
  'PIPE <' fn ft fm,
'|SPECS RECNO 1 1-* 12',  /* insert record nbr */
'| Locate 12-* / CALL /',
'| ...


2010/7/7 Sergio Lima 


Hello List,
 
We need, do here a REXX that will READ a lot of COBOL Programs.
So, must, locate all "CALL" Statements, and think use XEDIT for this.
Someone know, if have a place, or a documentation, for us get a sample program?
 
Thanks
 
Sergio Lima Costa



PARA NAVEGAR COM MAIS PRIVACIDADE USE O INTERNET EXPLORER 8. INSTALE GRÁTIS.

-- 
Kris Buelens,
IBM Belgium, VM customer support
  
_
PREPARE-SE: O SEU HOTMAIL VAI FICAR MELHOR DO QUE NUNCA. CLIQUE E VEJA AS 
NOVIDADES.
http://www.windowslive.com.br/public/product.aspx/view/1?ocid=Hotmail:Live:Hotmail:Tagline:senDimensao:PREPARE-SE83:-

Re: Sample REXX using XEDIT

2010-07-07 Thread Kris Buelens 
Or maybe
  'PIPE <' fn ft fm,
'|SPECS RECNO 1 1-* 12',  /* insert record nbr */
'| Locate 12-* / CALL /',
'| ...

2010/7/7 Sergio Lima 

>  Hello List,
>
> We need, do here a REXX that will READ a lot of COBOL Programs.
> So, must, locate all "CALL" Statements, and think use XEDIT for this.
> Someone know, if have a place, or a documentation, for us get a sample
> program?
>
> Thanks
>
> Sergio Lima Costa
>
> --
> PARA NAVEGAR COM MAIS PRIVACIDADE USE O INTERNET EXPLORER 8. INSTALE
> GRÁTIS.
>



-- 
Kris Buelens,
IBM Belgium, VM customer support

Re: Sample REXX using XEDIT

2010-07-07 Thread Jim Bohnsack 
I program that originally was IBM Internal Use Only is SCANFILE.  It 
will do exactly what you want.  I saw a reference to it on the IBM 
download page, but didn't find it.  Maybe it's on one of other program 
repositories if it is now in the public domain.


Jim

On 7/7/2010 9:50 AM, Sergio Lima wrote:

--_87bab6ee-f10e-4a38-83a1-851e6464c3ec_
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable


Hello List=2C

=20

We need=2C do here a REXX that will READ a lot of COBOL Programs.

So=2C must=2C locate all "CALL" Statements=2C and think use XEDIT for this.

Someone know=2C if have a place=2C or a documentation=2C for us get a sampl=
e program?

=20

Thanks

=20

Sergio Lima Costa
 =20
_
PREPARE-SE: O SEU HOTMAIL VAI FICAR MELHOR DO QUE NUNCA. CLIQUE E VEJA AS N=
OVIDADES.
http://www.windowslive.com.br/public/product.aspx/view/1?ocid=3DHotmail:Liv=
e:Hotmail:Tagline:senDimensao:PREPARE-SE83:-=

--_87bab6ee-f10e-4a38-83a1-851e6464c3ec_
Content-Type: text/html; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable






Hello List=2C
 =3B
We need=2C do here a REXX that will READ a lot of COBOL Programs.
So=2C must=2C locate all "CALL" Statements=2C and think use XEDIT for this.=

Someone know=2C if have a place=2C or a documentation=2C for us get a sampl=
e program?
 =3B
Thanks
 =3B
Sergio Lima Costa PARA 
NAVEGAR COM MAIS PRIVACID=
ADE USE O INTERNET EXPLORER 8.http://www.microsoft.com/brasil/w=
indows/internet-explorer/default.aspx?WT.mc_id=3D1633' target=3D'_new'>INST=
ALE GR=C1TIS.
=

--_87bab6ee-f10e-4a38-83a1-851e6464c3ec_--
   



--
James Bohnsack
(972) 596-6377 home/office
(972) 342-5823 cell

Re: Sample REXX using XEDIT

2010-07-07 Thread Rob van der Heij 
On Wed, Jul 7, 2010 at 3:50 PM, Sergio Lima  wrote:

> We need, do here a REXX that will READ a lot of COBOL Programs.
> So, must, locate all "CALL" Statements, and think use XEDIT for this.
> Someone know, if have a place, or a documentation, for us get a sample
> program?

I would say that for such situations, any time invested in learning
CMS Pipelines will pay back tenfold (both in programming and runtime).

My little pipeline refinery to convert assembler files to HTML pages
is a serious productivity gain. It does links to follow branches and
calls and to find fields in DSECTs. It also generates a symbol cross
reference with links .

You'd hang out on CMSPIP-L with questions about using CMS Pipelines...

R; Sir Rob the Plumber

Re: Sample REXX using XEDIT

2010-07-07 Thread Mike Walter 
Sergio,

Do you just want to know if certain program contain a "CALL" statement? 
What will you do once you determine if a CALL exists in those programs?

There are several very fast search utilities on the IBM VM Download page: 
http://www.vm.ibm.com/download/packages/
Among them are: 
SRCHLIST
LOOKALL
MSEARCH
PIPESCAN
PIPEFUZZ
LOOK4
and many more.  It really depends on what you'll do once you know which 
programs contain a CALL statement.

One of my favorite search commands is: SCANCMS
SCANCMS VMARC can be retrieved from:  http://zvm.sru.edu/~DOWNLOAD/ 

Good hunting!

Mike Walter
Hewitt Associates
The opinions expressed herein are mine alone, not my employer's.



"Sergio Lima"  

Sent by: "The IBM z/VM Operating System" 
07/07/2010 08:50 AM
Please respond to
"The IBM z/VM Operating System" 



To
IBMVM@LISTSERV.UARK.EDU
cc

Subject
Sample REXX using XEDIT






Hello List,
 
We need, do here a REXX that will READ a lot of COBOL Programs.
So, must, locate all "CALL" Statements, and think use XEDIT for this.
Someone know, if have a place, or a documentation, for us get a sample 
program?
 
Thanks
 
Sergio Lima Costa

PARA NAVEGAR COM MAIS PRIVACIDADE USE O INTERNET EXPLORER 8. INSTALE 
GRÁTIS.



The information contained in this e-mail and any accompanying documents may 
contain information that is confidential or otherwise protected from 
disclosure. If you are not the intended recipient of this message, or if this 
message has been addressed to you in error, please immediately alert the sender 
by reply e-mail and then delete this message, including any attachments. Any 
dissemination, distribution or other use of the contents of this message by 
anyone other than the intended recipient is strictly prohibited. All messages 
sent to and from this e-mail address may be monitored as permitted by 
applicable law and regulations to ensure compliance with our internal policies 
and to protect our business. E-mails are not secure and cannot be guaranteed to 
be error free as they can be intercepted, amended, lost or destroyed, or 
contain viruses. You are deemed to have accepted these risks if you communicate 
with us by e-mail.

Running Oracle on zLinux

2010-07-07 Thread Martha McConaghy 
Running Oracle databases and applications on Linux on System z has become a
"hot topic" for many of us now.  How to get them working and, especially,
how to get them to perform well are of major concern.  However, since this is
all still relatively new, there isn't a lot of information or real life
experience available yet.

Because of the growing interest in this area, the "Linux and VM Program"
of SHARE has put together a series of presentations dedicated to this subject.
These presentations will feature people with real life experience in porting
Oracle applications to zLinux, such as Gerard Shockley of Boston University
and David Lacey of Aetna, as well as experts who have supported numerous
customers during their transitions to this environment.  This series will
feature up-to-date information on new releases, hidden hazards as well as
hints and tips to make everything work well.  If you are running or are about
to port Oracle based applications to zLinux, you cannot afford to miss these
presentations.

This series will take place on Wed, Aug. 4 in Boston, MA as part of the
overall SHARE conference.  (For a specific listing of the presentations being
offered, please see http://share.org )  There is still plenty of time to
register for SHARE.  Full week and single day registrations are available.

Martha McConaghy
(Linux and VM Program Manager)
Marist College

Re: Sample REXX using XEDIT

2010-07-07 Thread Frank M. Ramaekers 
What do you need to do with the COBOL program?

 

Easy to read a CMS file (COBOL program) in REXX (IMHO):

 

  "PIPE <" fn ft fm "| STEM IN."

 

(This reads the entire contents of the file into the stem variable IN.)

 

Frank M. Ramaekers

 



From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf 
Of Sergio Lima
Sent: Wednesday, July 07, 2010 8:50 AM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Sample REXX using XEDIT

 

Hello List,
 
We need, do here a REXX that will READ a lot of COBOL Programs.
So, must, locate all "CALL" Statements, and think use XEDIT for this.
Someone know, if have a place, or a documentation, for us get a sample program?
 
Thanks
 
Sergio Lima Costa



PARA NAVEGAR COM MAIS PRIVACIDADE USE O INTERNET EXPLORER 8. INSTALE GRÁTIS. 

 


_
This message contains information which is privileged and confidential and is 
solely for the use of the
intended recipient. If you are not the intended recipient, be aware that any 
review, disclosure,
copying, distribution, or use of the contents of this message is strictly 
prohibited. If you have
received this in error, please destroy it immediately and notify us at 
privacy...@ailife.com.

Re: A call to help Chair sessions at SHARE

2010-07-07 Thread Jagos, Brian V 
Hi All,

 

We are now down to a total of three sessions.  Who or
whom would like to take a shot at one of the last three sessions.

 

Monitoring z/VM with SNMP Daemon

Wed

2010-08-04, 11:00:00

Room 306

Robert (Jay) J. Brenneman  

Understanding NPIV and the Performance of Channels with zLinux

Thurs

2010-08-05, 11:00:00

Room 305

Stephen R. Guendert Sr., Ph., D  

Linux on System z - s390-tools in a Nutshell

Thurs

2010-08-05, 15:00:00

Room 306

Hans-Joachim Picht  



 

Thank you;

Brian Jagos

TSO

Principal Consultant z/OS z/VM

Linux for System z

Phone: (631) 342 - 6523

Sample REXX using XEDIT

2010-07-07 Thread Sergio Lima 

Hello List,

 

We need, do here a REXX that will READ a lot of COBOL Programs.

So, must, locate all "CALL" Statements, and think use XEDIT for this.

Someone know, if have a place, or a documentation, for us get a sample program?

 

Thanks

 

Sergio Lima Costa
  
_
PREPARE-SE: O SEU HOTMAIL VAI FICAR MELHOR DO QUE NUNCA. CLIQUE E VEJA AS 
NOVIDADES.
http://www.windowslive.com.br/public/product.aspx/view/1?ocid=Hotmail:Live:Hotmail:Tagline:senDimensao:PREPARE-SE83:-

Re: Second screen in a z/VM CMS session

2010-07-07 Thread David Boyes 
> I'll second what Mike said about TRACEXEC.  It's a great tool.  It's
> not
> going to do what you envisioned originally as far as working with two
> screens, but you should consider TRACEXEC anyway.

If you do go the two-userids-with-SFS route, also consider SESSION. It allows 
you to log into one userid, run SESSION  PFx, and then you can switch 
sessions with a PF key. You can have lots of named sessions, each on a 
different userid. Again, not exactly what you wanted, but enormously handy for 
those moments when you need to check something on another id without having to 
start a whole new session.

Re: Second screen in a z/VM CMS session

2010-07-07 Thread Rob van der Heij 
Another userful thing that does not do what was asked for...  I am
very fond of Perry's SWAPCONS that does fullscreen on a dialed GRAF
and linemode output on your normal terminal. Great if you want to
trace REXX code that drives (XEDIT) full screen.

R;