Kategorie: code for z/OS

code for z/OS

30

Jan2021

EOTC Konference 2021 online – IBM Labor Böblingen, 19.-23.04.2021

IBM would like to invite you to our next GSE European Operations Technical Conference (GSE EOTC) in 2021 hosted online by IBM Germany Research & Development GmbH. The agenda covers exciting enhancements within the IBM Z Service Management portfolio, including Z System Automation, Z NetView, Service Management Unite, Z ... weiterlesen
30. Januar 2021Gernot

20

Mrz2017

SQL Selektion: Immer nur montags bis freitags

Gesucht war eine Möglichkeit, als Berichtszeitraum immer nur von Montag bis Freitag der Vorwoche oder der ablaufenden Woche zu selektieren. Ab Freitag (-nacht), Samstag und Sonntag sollte immer die aktuelle Woche selektiert werden, sonst die Vorwoche. Beispiel: Am Ender einer Woche sollen in einer Bank nur die Buchungen, oder in einer ... weiterlesen
20. März 2017Gernot
filter

29

Nov2015

Duplicates mit ICETOOL filtern

Wer stand noch nicht vor dem Problem: Wie kann man schnell und effizient mehrfache Vorkommen aus einer Datei herausfiltern? Nachfolgend ein einfaches Beispiel unter Verwendung des ICETOOL SELECT Statements: //*-------------------------------------------------------------------+ //* First file will select all records with no duplicates, ... weiterlesen
29. November 2015Gernot
remove trailing blanks

26

Nov2015

Cobol: Remove trailing blanks from a string

Für Cobol-Experten sicherlich ein alter Hut, hier aber trotzdem ein bewährtes Rezept zur Löschung von Trailing Blanks: INSPECT REVERSE(element) TALLYING elemrückwärts FOR LEADING SPACES COMPUTE element-LENGTH = LENGTH OF element - elemrückwärts MOVE element(1:element-LENGTH) TO ...........
26. November 2015Gernot

25

Sep2015

BIND db2look Utility an ein DB2 z/OS Subsystem (Unix)

In diesem Beispiel wird von einem Unix/AIX das DB2LOOK Utility über Secondary AuthID an ein DB2 for z/OS Subsystem gebunden. #!/bin/ksh ################################################################################ # 21.05.2013/GR - Adapted from BindDB2ConnectSecondary to bind DB2LOOK to DB2 z/OS # 16.09.2015/GR - db2look.bnd, db2lkfun.bnd, db2lksp.bnd not needed for DB2 z/OS ################################################################################ clear ID=`id` USER=`whoami` DATE=`date +%Y-%m-%d-%H.%M.%S` YD=`date +%j` SYSTEM=`uname -n` cd /u/db2dba/ddl tty=`tty` logpath=$PWD logfname=`basename $0 | awk ... weiterlesen
25. September 2015Gernot

05

Mrz2015

Explain Table Maintenance mit ADMIN_EXPLAIN_MAINT

Mit dem DB2 11 for z/OS Enhancement APAR PI05200 steht künftig eine sehr komfortable Möglichkeit zur Verfügung, Objekte, die während des EXPLAIN-Prozesses benötigt werden, anzulegen oder zu komplettieren bzw. zu aktuaklisieren. Der Anwender muss sich nur noch den gewünschten EXPLAIN-Table-Umfang aussuchen. Die Rede ist von ADMIN_EXPLAIN_MAINT, der IBM DB2 supplied Stored ... weiterlesen
5. März 2015Gernot

09

Sep2014

REXX-Prozedur zur Analyse von STROBE-Reports

Extracts findings from STROBE report to print on log and to extract on dataset which may be emailed to administrators as precautionary notifications. /*REXX****************************************************************/ /* XMPSTRCK ..: Analysing COMPUWARE STROBE REPORTS ... weiterlesen
9. September 2014Gernot

18

Mrz2014

SQL playing with user id’s

Does your application has to check cerrtain authorzation id's for certain access rights needed? Following SQL shows some ways how to proceed: -- any userid between L0... and F9..., but letters are illegal SELECT USERID,HEX(USERID) FROM MY.TABLE_OF_AUTHIDS WHERE USERID BETWEEN X'463F000000000000' AND X'4639393939393939' OR USERID ... weiterlesen
18. März 2014Gernot

13

Feb2014

SQL functions to convert DEC to HEX value

Do you need to convert decimal value to hexadecimal representation? Then you should try this: -- WITH DEMO AS (SELECT DECIMAL( 12345678.905 , 15, 3 ) AS DECVALUE -- 8 bytes internally FROM SYSIBM.SYSDUMMYE ) -- ... weiterlesen
13. Februar 2014Gernot

13

Jul2013

z/OS JCL to delete an obsolete dataset passing a retention period

Do you want to delete an obsolete z/OS dataset without RECALL'ing or RECOVER'ing from CA-DISK, HSM or other storage management systems? This is a very smart ans resource saving way - replace nn by the number of days of requested retention period. //* //*-------------------------------------------------------------------* //* LISTCAT+SORT+DEL = DELETION OF DATASETS OLDER THAN nn DAYS //*-------------------------------------------------------------------* //LISTC ... weiterlesen
13. Juli 2013Gernot

30

Mai2013

DB2 z/OS SQL check for unused indexes

SQL check for unused indexes! Before dropping indexes, verify that following PTF's are installed. RA10 PSY UK76968 UP12/03/27 P F203 R910 PSY UK76969 UP12/03/27 P F203 If not installed, LASTUSED is not being updated when an index is used to enforce a referential integrity constraint. -------------------------------------------------------------------------------- -- Check for unused indexes -- Before dropping indexes, verify that ... weiterlesen
30. Mai 2013Gernot

11

Mrz2013

REXX procedure to execute DSNACCOX DB2-supplied stored procedure (V10)

DSNACCOX, the successor of DSNACCOR, is a IBM DB2-supplied stored procedure to provide information to maintain DB2 objects. It includes proposals for creating image copyies (COPY), reorganization (REORG) and renewal of statistics (RUNSTATS). This version covers DB2 10 for z/OS. For more information about DSNACCOX click here. /*REXX****************************************************************/ /* XMPACCOX ..: Retrieve ... weiterlesen
11. März 2013Gernot

10

Mai2012

SQL to retrieve DB2 subsystem information

10. Mai 2012Gernot

10

Mai2012

REXX procedure to check database status

This REXX procedure checks the status for DB2 for z/OS databases, tablespaces, utilities and threads. The user passes a valid DB2 command and the procedure checks the results. Example 1: CHECK DATA, which checks your DB2-enforced referential integrity ends with return code RC=4 even if the DB2 utility has detected RI ... weiterlesen
10. Mai 2012Gernot

10

Mai2012

ISPF EDIT macro to navigate thru sources

This TSO/E ISPF EDIT macro, called JUMP, helps to navigate between sources. An example: You are editing a job JCL and need some information, for example input parameter allowed for a procedure or programm. Usually you would split the screen, open an additional edit oder browse session to look for ... weiterlesen
10. Mai 2012Gernot

07

Apr2012

JCL and DB2 LOAD utility statement for data in CSV input format

You want to load a CSV file into a DB2 for z/OS table? Usually the problems are ... the columns do not start at fix column position strings, dates and times are not put in (double) quotes special characters are included, some are used to separate columns numerical data may include commas as decimal point data ... weiterlesen
7. April 2012Gernot

07

Apr2012

z/OS JCL example for ADRDSSU dump and restore

An essential example of how to deploy ADRDSSU to DUMP several files and later, if required, RESTORE one or more of those archived files. This exmpale: Create a DUMP file on TAPE/CASS and keep it for 30 days: //STEP1 EXEC PGM=ADRDSSU //SYSPRINT DD SYSOUT=* //AUS1 DD ... weiterlesen
7. April 2012Gernot

23

Feb2012

REXX procedure to call ADMIN_INFO_SYSPARM

REXX to call the IBM DB2-supplied stored procedure ADMIN_INFO_SYSPARM to access DB2 DSNZPARM parameters and writes them an output dataset. This make it easy to archive DB2 subsystem parameters or compare parameter sets of different DB2 subsystems. See example output at end of page. /*REXX****************************************************************/ /* DIS2INST ...: Display DB2 for ... weiterlesen
23. Februar 2012Gernot

17

Feb2012

REXX procedure to execute DSNACCOX DB2-supplied stored procedure (V9)

DSNACCOX, the successor of DSNACCOR, is a IBM DB2-supplied stored procedure to provide information to maintain DB2 objects. It includes proposals for creating image copyies (COPY), reorganization (REORG) and renewal of statistics (RUNSTATS). This version covers DB2 for z/OS Version 9. /*REXX****************************************************************/ /* XMPACCOX ..: Retrieve recommendations to help you maintain ... weiterlesen
17. Februar 2012Gernot

09

Feb2012

z/OS ASM program to raise an U0001 user abend

This tiny assembler program may enhance control of your jobs whenever  TWS or JES JCL syntax would be to complex. The program raises an U0001 user abend, which leads to "end of job" - definitively! So, you do not have to COND=(nn,op) or IF statements to your JCL. D2PABND TITLE 'D2PABND - ... weiterlesen
9. Februar 2012Gernot

09

Feb2012

REXX procedure to display DBRM Timestamp

REXX procedure to display DBRM Timestamp: /* REXX - Display a DBRM TimeStamp in a real date time format. */ /* - format is TSO DBRMTS DSN(MEMBER) (no quotes) */ /* ... weiterlesen
9. Februar 2012Gernot

09

Feb2012

REXX procedure for DPropR Apply V5 Information and Control

This TSO/E REXX procedures reads information from Data Propagator tables, which can be used to control dependent process flow. The procedure is quite old but still a good sample for querying Data Propagator Control Tables. /*REXX****************************************************************/ /* APPLYIS....: DPropR Apply V5 Information and Control ... weiterlesen
9. Februar 2012Gernot

09

Feb2012

z/OS JCL to delete a file

z/OS JCL example for "delete a file, if exists. Doesn't matter if not. //DELREPT EXEC PGM=IEFBR14 //SYSUT1 DD DSN=MYUSER.TEST, // DISP=(MOD,DELETE,DELETE),SPACE=(1,0) //SYSPRINT DD SYSOUT=* //... next step
9. Februar 2012Gernot