Antwort: Re: Version control for PDS(E) members
Hi Manfred In my shop we use a ISPF Frontend to control the CVS workflow for COBOL-Sources. if you want a quick dirty solution: add 2 steps to your compile job: 1. checkout CVS 2. copy HFS file to PDSE and vice versa to checkin Sample: //* - //* Checkout Modul aus CVS-Repository in CVS-Working Directory //* - //CVSCOTN EXEC PGM=AOPBATCH,PARM='sh -x' //STDIN DD * REPO=/cvs/Repository PROJ=myProject # Projekt MTYP=cbl # Modul Typ if test $MTYP = cbl # COBOL Source then cvs -d $REPO checkout $PROJ RC=$? fi fi if test RC -ne 0 then echo cvs checkout error, rc= $RC exit $RC else echo *** Checkout erfolgreich beendet *** fi /* //STDOUT DD SYSOUT=* //STDERR DD SYSOUT=* //STDENV DD DSN=SYSP.PARMLIB(USSENV),DISP=SHR //* - //* Copy HFS-File aus CVS Working Directory in MVS-Library Test //* - //CVSCOPY EXEC PGM=IKJEFT01 //INHFSDD PATH='/myhomedirectory', // PATHOPTS=(ORDONLY) //OUTMVS DD DSN=MY.PDSE.COBOL(MEMBER),DISP=SHR //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * OCOPY INDD(INHFS) OUTDD(OUTMVS) TEXT CONVERT(YES) PATHOPTS(USE) /* HTH Albert Manfred Lotz manfred.l...@googlemail.com Gesendet von: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 09.06.2010 16:43 Bitte antworten an IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu An IBM-MAIN@bama.ua.edu Kopie Thema Re: Version control for PDS(E) members Hi Albert, Thanks for your reply. On Wed, Jun 9, 2010 at 2:14 PM, Albert Klimek albert.kli...@weltbild.com wrote: Hi Manfred A low cost solution for z/OS is CVS for MVS (dccmn.com/cvsmvs). You can use it from USS-side via native CVS commands or via Batch-Job from TSO. Yep, CVS or even simpler RCS would be possible. However, then I would have to copy PDS member to USS, actually in both directions, as both CVS and RCS can only deal with USS files as far as I can see. -- Manfred -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Martin Beer, Dr. Klaus Driever Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
Antwort: Version control for PDS(E) members
Hi Manfred A low cost solution for z/OS is CVS for MVS (dccmn.com/cvsmvs). You can use it from USS-side via native CVS commands or via Batch-Job from TSO. Albert VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Martin Beer, Dr. Klaus Driever Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
Antwort: Is there a way to execute the same non-CICS DB2 COBOL program in both batch and online?
Hi Amlan the magic word is 'conditional compile' to activate specific COBOL statements in a single COBOL Source. (e.g DFHCOMMAREA in CICS) COBOL-Source: $IF COMPILEMODUS = CICS 01 DFHCOMMAREA. ... $END $IF COMPILEMODUS = BATCH 01 io-area. ... $END You need two load modules, one for batch and one for CICS. Unfortunately IBM COBOL compiler does not support the conditional compile, but only Microfocus COBOL compiler. Therefore you need a preceding step for each compile-job to activate, deactivate the conditional compile statements. Albert VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Martin Beer, Dr. Klaus Driever Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
Antwort: WEB Print Server Shopping
We use Beta93 (z/OS) and Beta Web Enabler (z/Linux). Listoutput can be displayed and printed via Internet Explorer. To fulfill the principle of a paperless office, then display function is mainly used. Albert VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Martin Beer, Dr. Klaus Driever Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
Antwort: Re: Antwort: Thoughts/Experience with migration from Serana Changeman to SCLM
You see: that is were your cost will go... I agree, it's a low cost solution, not for free. I made a simple calculation. If I buy a commercial software I had to pay the purchase price, I had to pay for implementation and then each year for maintenance. With the use of open source software, initially I have much effort, then this is rather low. Therefore my Company save money in the amount of my salary, month per month. Sorry, no, you will not. Because you will have to do it all yourself and on your own. In my book you are always better of buying something than building it. Ok, the solution is only for our needs, but suitable for our purposes. And changes are straightforward. Albert Jan MOEYERSONS [EMAIL PROTECTED] Gesendet von: IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU 20.06.2008 11:05 Bitte antworten an IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU An IBM-MAIN@BAMA.UA.EDU Kopie Thema Re: Antwort: Thoughts/Experience with migration from Serana Changeman to SCLM On Thu, 19 Jun 2008 13:17:11 +0200, Albert Klimek [EMAIL PROTECTED] wrote: In the past we had a similar situation. The management had decided to remove CA Librarian. I can understand one would want to remove CA; after all, although I have no experience with Librarian, I do have experience with CA. No offence... I know nothing about SCLM, but we have selected CVS/MVS for our purposes. Again, I have no real experience using either SCLM or CVS, but both only support well the versioning and give you (very) little life cycle (workflow) management. And it is precisely the life cycle management that I feel is important. The special decision criteria for CVS on MVS: - low cost solution by using Open Source Don't be fooled by the fact that you do not have to pay $$$ for acquiring the software. The real cost is in implementation, migration, training, etc. I developed an ISPF-Frontend for ease of use and to control the workflow (test, quality-control, integration, production) You see: that is were your cost will go... Therefore we are very flexible for future expansions. Sorry, no, you will not. Because you will have to do it all yourself and on your own. In my book you are always better of buying something than building it. My opinion. Cheers, Jantje. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Klaus Driever, Werner Ortner, Herbert Zoch Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
Antwort: Thoughts/Experience with migration from Serana Changeman to SCLM
In the past we had a similar situation. The management had decided to remove CA Librarian. I know nothing about SCLM, but we have selected CVS/MVS for our purposes. (Mainframe developers and Mainframe COBOL-Sources) The special decision criteria for CVS on MVS: - low cost solution by using Open Source - vendor independence - much used in open systems environments (easier change of platform in the future) I developed an ISPF-Frontend for ease of use and to control the workflow (test, quality-control, integration, production) Therefore we are very flexible for future expansions. This will be the integration of egl-sourcecode. Albert VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Klaus Driever, Werner Ortner, Herbert Zoch Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
Antwort: Logon statistic
Take a look at the session manager log. Our shop use Netview Access. I wrote a REXX to do this. if you want, I send it offline. Albert VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Klaus Driever, Werner Ortner, Herbert Zoch Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
Antwort: Incremental Backup/Restore for HFS/zFS
We use HSM to backup the whole HFS dataset. Incremental backup files within a HFS dataset, TSM is usable. We havn't TSM, therefore I wrote a REXX-Script, to do this. Is this what you want? Albert VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Klaus Driever, Werner Ortner, Herbert Zoch Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
Antwort: Web access to mainframe datasets
Appendix C in the HTTP Server Planning, Installing, and Using manual Albert VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Klaus Driever, Werner Ortner, Herbert Zoch Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
Antwort: Re: Antwort: Re: Cobol Conditional Compile
A good idea, but a C-Compiler is not available on the programmers workstations. I'll try it with REXX. Maybe IBM decides to built in the conditional compile feature in the future. Thank you all for your response. Albert VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Klaus Driever, Werner Ortner, Herbert Zoch Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
Antwort: Re: Cobol Conditional Compile
We use a single COBOL-Sourcecode (mostly subprograms) for multiple use to avoid redundancy (Batch, CICS, PC). Sample Code in MF-Cobol: 003380 LINKAGE SECTION. 003410$IF COMPILEMODUS = CICS 003420 01 DFHCOMMAREA. 00343002 ... 003540$END 003550 003560$IF COMPILEMODUS = BATCH 003570 01 io-para. 00358005 ... 003670$END 003680 003700$IF COMPILEMODUS = PC 003710 01 INPUT-BEREICH. 00372005 ... 003810$END Edit macro is a good idea, but I need a script that works as well under MVS as under Windows. We migrate from Micro Focus Mainframe Express to Websphere Developer for zSeries. Thanks Albert VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Klaus Driever, Werner Ortner, Herbert Zoch Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
Cobol Conditional Compile
Micro Focus COBOL provides a mechanism for selectively compiling part of the COBOL source. (controlled by $IF, $ELSE, $END) IBM Enterprise COBOL for z/OS 3.3 do not support conditional compile. I think about to write a REXX to do this. Any other ideas ? Albert VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Klaus Driever, Werner Ortner, Herbert Zoch Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
RMF Spreadsheet Reporter Overview
Hi List I play around with the RMF Spreadsheet Reporter. I have created a report successfully. My problem: SMF input dataset contains one day ( 07/17/2007) If I create a overview, the first interval is 07/17/2007-21.15.00 // //*RMF POSTPROCESSING OPTIONS // //SYSINDD * DATE(07012007,07312007) NOSUMMARY OVERVIEW(RECORD) OVW(DEFMU2FM(WDEFL(MU2FMPW0))) OVW(ACTMU2FM(WACTL(MU2FMPW0))) OVW(MINMU2FM(WMINL(MU2FMPW0))) OVW(MAXMU2FM(WMAXL(MU2FMPW0))) OVW(NLDMU2FM(NLDEFL(MU2FMPW0))) OVW(NLAMU2FM(NLACTL(MU2FMPW0))) OVW(LBUMU2FM(LBUSYL(MU2FMPW0))) OVW(PBUMU2FM(PBUSYL(MU2FMPW0))) OVW(LDMMU2FM(LDEFMSU(MU2FMPW0))) OVW(LDAMU2FM(LACTMSU(MU2FMPW0))) OVW(CAPMU2FM(WCAPPER(MU2FMPW0))) OVW(NLDPHY(NLDEFL(PHYSICAL))) OVW(LBUPHY(LBUSYL(PHYSICAL))) OVW(PBUPHY(PBUSYL(PHYSICAL))) OVW(RMFX9CPC(PBUSYL(PHYSICAL))) OVW(LASTRNG(PBUSYL(PHYSICAL))) SYSOUT(H) What's my mistake. Many thanks Albert VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Klaus Driever, Werner Ortner, Herbert Zoch Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
Antwort: Re: RMF Spreadsheet Reporter Overview
RMF is not my main topic. Therefore I use the RMF Spreadsheet Reporter to investigate our LPAR performance. But a sorted SMF dataset is mandatory for reports and overviews. I assumed the Spreadsheet Reporter handles this automatically. Albert VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Klaus Driever, Werner Ortner, Herbert Zoch Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
RMF Spreadsheet Reporter Overview
I solved my problem. 'Sort SMF Datasets' must be selected in Settings/Options/General thanks Albert VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Klaus Driever, Werner Ortner, Herbert Zoch Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
Antwort: remote printing from z/OS Spool over the WAN network
Using Infoprint you can - Retry unsuccessful transmissions - Retain data sets on the JES spool after failed transmission You format text-documents sending a document header with PCL-Commands. Albert VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Klaus Driever, Werner Ortner, Herbert Zoch Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
Antwort: date time system variables
You can do it in REXX. The example creates a member in a PDS.
fname = 'MY.PDS.DATASET'
outmem= 'MEM'!!substr(rundatjj,3,2)!!'M'!!rundatmm
outdsn= fname!!'('!!outmem!!')'
r = fopen(outdsn)
fopen: parse arg dsn
ALLOC FI(out) DA('dsn') OLD
if rczero then do
say '*** Error ALLOC, rc='!!rc
exit(ex)
end
return(zero)
Albert
VERLAGSGRUPPE WELTBILD GMBH
Sitz der Gesellschaft: Augsburg
Handelsregister Augsburg HRB 6035
Ust-ID-Nr: DE 127501299
Geschäftsführung:
Carel Halff (Vorsitzender), Dr. Klaus Driever, Werner Ortner, Herbert Zoch
Vorsitzender des Aufsichtsrates:
Dr. Klaus Donaubauer
Antwort: Souce Control for z/OS
A low cost solution for z/OS is CVS for MVS (dccmn.com/cvsmvs). You can use it from USS-side via native CVS commands or via Batch-Job from TSO. I wrote a ISPF-frontend in REXX for our needs to control the workflow-levels test, qualitycontrol, integration, production. This tool is for Mainframe developers without CVS-know-how and Mainframe COBOL-Sourcecode. Our MVS guys are very happy using CVS for MVS. Albert VERLAGSGRUPPE WELTBILD GMBH Sitz der Gesellschaft: Augsburg Handelsregister Augsburg HRB 6035 Ust-ID-Nr: DE 127501299 Geschäftsführung: Carel Halff (Vorsitzender), Dr. Klaus Driever, Werner Ortner, Herbert Zoch Vorsitzender des Aufsichtsrates: Dr. Klaus Donaubauer
