42 COURSE LIMBURG AN DER LAHN 13 15

42. COURSE - LIMBURG AN DER LAHN 13. -15. MAI 2012 Heinz Peter Maassen. Lattwein Gmb. H. Hp. maassen@lattwein. de

AGENDA CPG 2. 6 � Threadsafe 42. Course 2012 Limburg � QIT. Net � News CPG 5 – Check. Klick ICCFSCAN Members Beispiel TCP/IP DNS Namen TCP/IP API- Versionen Around z/VSE � TCP/IP CSI – BSI – LFP – VIA 3

Z/VSE EVOLUTION 2011 42. Course 2012 Limburg 4

Z/VSE EVOLUTION 2012 42. Course 2012 Limburg 5

CPG 2. 6 CPG Evolution mit z. VSE CPG-1 VSAM Virtual Storage CICS DOS Rel. 23 CICS VS 1. 0 DOS/VS Rel. 27 QDF Query CPG-FF SQL/DS QTF QXF LIST MRO/ISC CICS VS 1. 1. 1 VSE/ESA Rel. 1. 0 CICS VS 1. 1 DOS/VS/SP Rel. 27 -34 CICS VS 1. 2 – 1. 3 VSE/ESA Rel. 1. 3 31 Bit Y 2 K Support CICS/VS 1. 4 - 1. 7 VSE/ESA Rel. 1. 4 CICS/VSE 2. 1 -2. 3 VSE/ESA Rel. 2. 1 -3 6 1973 1980 1990 42. Course 2012 Limburg CPG-4 CPG-3 CPG-2 QSF QDD CPG-5 QPG Net. Page QIT Browser mit APPC ab 1997 2000

42. Course 2012 Limburg CPG 2. 6 CPG Evolution mit z. VSE CPG-5 Net. Page QIT Browser mit TCP/IP ab 1999 CPG-5 + CPGXML CPG-5 + CPGJDBC CPG-5 +. Net ASPX Qit. NET MAIL CPGSHELL ? CICS TS 1. 1. 1 only z/VSE 5. 1 (2011) CICS TS 1. 1. 1 - CICS/VSE 2. 3 z/VSE 4. 3 (2010) CICS TS 1. 1. 1 + CICS/VSE 2. 3 z/VSE 4. 2 (2008) CICS TS 1. 1. 1 + CICS/VSE 2. 3 z/VSE 4. 1 (2007) CICS/VSE 2. 3 VSE/ESA Rel. 2. 4 -2. 7 CICS TS 1. 1. 1 + CICS/VSE 2. 3 z/VSE 3. 1(2005) 7 1999 2002 2005 2008 2011

CPG 2. 6 Was kommt denn jetzt noch ? Windows 2008 Server – Windows 7 und Windows 8 42. Course 2012 Limburg � 64 Bit Support � Unterstützen aber kein Visual Basic V 6 mehr. � Lattwein hat QIT und andere Client Produkte nach C# portiert Einige Vorteile ergeben sich für die Anwender � Fertige FTP Jobs können erstellt und ausgeführt werden � Direkt von CICS nach CICS 8

CPG 2. 6 Zukunft im z/VSE 64 Bit Support mit z. VSE 5. 1 Im z/OS kann es mehr als 1 Prozessor je CICS geben 42. Course 2012 Limburg � Vorteil schnellere Verarbeitung � Nachteil: Programme müssen Threadsafe sein (Full Reentrant) oder zwischen Threadsafe und Quasi reentrant umschalten � Geht zur Zeit nur für DB 2 Zugriffe im z/OS � Kann aber auch für z/VSE kommen – wer weiß das schon 9

CPG 2. 6 Neue Methodenbank für CPG (1 -5) Alle Routinen für CICS TS verbleiben in der CPGMBK. Über Conditional Assembler kann die CPGMBK optimiert werden. ( VBOMP/EDN, CPGCCI Macro Level wahlweise, uvm. ) Alle Routinen verwenden eine eigene DSECT für Work Bereiche Methodenbankfelder sind jetzt lokal pro Task Full Reentrant – Keine Code Modifikationen, keine Datenmanipulation im Code Bereich 42. Course 2012 Limburg 10

CPG 2. 5 Logik Ablauf CPG 2. 5 TWA CPGMBK CPGTOM CPG - SDUMP BT und Work Felder CPGPIW CPG - SDUMP Code + >Interne Felder< 42. Course 2012 Limburg CPG/HL 1/QPG Programme Quasi Reentrant Code bedeutet: Modifikationen von Code, abspeichern von Feldinhalten zwischen zwei CICS Befehlen möglich. In der CPGPIW werden Felder gehalten, die über CICS Befehle hinaus gültig bleiben. 1 -mal je Task 11

CPG 2. 6 Logik Ablauf (Programm Start Wahlweise ab 2. 6) TWA CPGMBK CPGTOM CPG - SDUMP BT und Work Felder CPGPWA BT und Work Felder CPG - SDUMP nur Code 42. Course 2012 Limburg CPG/HL 1/QPG Programme Kopie in einem User Storage pro Task ! 12

CPG 2. 6 THREADSAFE Bei Programm Start wird mit GETMAIN ein Workbereich von 4 KB angelegt. Hier werden die ersten 4096 Bytes der CPGMBK kopiert. 1. K = Branch Table � 2. K = User Branch Table � 3. K = Allgemeine CPG Felder � 4. K = User MBK Felder � Dieser Bereich wird Task bezogen mit Register 11 adressiert. Die Adresse wird im CPGPIW Bereich gesichert. 42. Course 2012 Limburg 13

CPG 2. 6 THREADSAFE Was ändert sich für den Kunden ? Nichts – alle Änderungen werden unter den Oberfläche wirksam - allerdings nur über eine Option. Programme können sowohl nach alter wie auch nach neuer Logik ablaufen Wir sind gerüstet für den “Full Reentrant“ Code. 42. Course 2012 Limburg 14

15 15 Jahre Web Anwendungen QIT ist ein guifizierter FTP und kann: � Power List und Punch Queue Daten auf Client übertragen � Jobs in die Power Reader Queue stellen � Alle Dateien, die Online verfügbar sind, empfangen � QPG Programme ausführen und Daten mit Logik senden und empfangen 42. Course 2012 Limburg

42. Course 2012 Limburg 15 Jahre Web Anwendungen 12 2. 4 MB in 11 Sekunden ! 16

QIT. NET Windows 7 und Windows 8 sind die aktuellen Betriebssysteme der kommenden Jahre beim Client Ab Windows 7 keine Unterstützung mehr für VB Version 6 Programme QIT wurde aber mit VB entwickelt Deshalb: Qit. NET neu entwickelt mit. NET Studio und C# 42. Course 2012 Limburg 17

QIT. NET Wie sieht das aus? 42. Course 2012 Limburg 18

NEWS Neue Funktionen im CPG 2. 6 � LIST Erweiterungen � HL 1 Batch Datei Verarbeitung � Query Erweiterungen � Methodenbank full reentrant wegen Threadsafe � QPG Edit Codes für Excel Minus Werte 42. Course 2012 Limburg � Statistik und Laufzeitmessung für CPG 5 und CPGXML � Bessere Fehlernachrichten bei Abbruch von Browseranwendungen � QPG Erweiterungen für TESTN, DELC, ELIM und REPLC � Statistik und CICS - Sort verbessert 19

CHECK-KLICK In Browser Anwendungen kann der Endanwender mehrfach Buttons, Hyperlinks und Default Anwendung klicken, falls das nicht verhindert wird. ( Bei 3270 � X - System). Microsoft ersetzt IIS 6 durch IIS 7 im Windows 2008 Server. IIS 7 bricht eine bereits gestartete Aktion ab und führt nur noch die letzte durch. Das kann zu einem Fehlverhalten der Anwendung führen. Fehler sind: Speicher wird nicht freigegeben und Logfiles werden nicht gelöscht! Das Javascript: Check. Klick verhindert weitere Aufrufe von einer Browserseite wie 3270. (� X – System) 42. Course 2012 Limburg 20

CHECK-KLICK CICS – VSE CPG 5. exe 2 GLEITZIK_PRG 5 3 CPG 5. exe GLEITZIK_PRG 5 3 TASK: QTCL 10345 TASK: QTCL 10347 TASK: QTCL 10359 42. Course 2012 Limburg 1 1 21

CHECK-KLICK Was muss der Programmierer machen, damit keine doppelten Aufrufe mehr erfolgen können: Funktionsaufruf bei der letzten Variablen aktivieren So sieht das aus: 42. Course 2012 Limburg 22

CHECK-KLICK Letzte Variable ist: � Enthält Include-Datei: � Checkklick. htm 42. Course 2012 Limburg � %Checkklick 23

CHECK-KLICK Checkklick. htm enthält den folgenden HTML Code: <!-- BEGIN HTMLCODE --><script type="text/javascript" language="javascript" src="/qsf/block_onsubmit_and_href. js"></script> <!-- END HTMLCODE --> Hier wird das Java. Script: block_onsubmit_and_href. js in die HTML Seite eingefügt. Dieses Script verhindert doppelte Aufrufe zum Listener auf z/VSE Seite. 42. Course 2012 Limburg 24

CHECK-KLICK Ausführung: 42. Course 2012 Limburg Hyperlinks werden geblockt! 25

CHECK-KLICK Doppelte Programm Ausführungen werden durch das Java. Script unterdrückt Der IIS Version 7 arbeitet anders als IIS Version 6. Task wird abgebrochen während noch Daten empfangen werden. Sprechen Sie uns an. 42. Course 2012 Limburg 26

Z/VSE ICCF SCAN Wer kennt das nicht? � Ein Job der seit Jahren fehlerfrei läuft bricht während der Batch Verarbeitung ab. � Der zuständige Programmierer oder Operator oder Arbeitsvorbereiter hat Urlaub, ist krank oder kommt erst in 8 Stunden. � Niemand weiß, wo die aktuellen Sourcen, JCL oder VSAM Cluster Definitionen stehen. Die Suche nach dem Fehler beginnt. . 42. Course 2012 Limburg 27

Z/VSE ICCF SCAN Sind die Sourcen im CMS in einem Programmverwaltungssystem vorhanden? Und kann man diese einfach finden? Oder stehen diese vielleicht im ICCF? Gibt es eine Dokumentation der letzten Änderungen? Welche Änderungen gibt es überhaupt im System seit dem letzten erfolgreichen Lauf? 42. Course 2012 Limburg 28

Z/VSE ICCF SCAN Unsere Idee: Alle ICCF Member als Punch Ausgabe abstellen und via FTP auf einen PC übertragen. Außerdem den Index zur ICCF Library erstellen und ebenfalls auf den gleichen PC übertragen. Nach Schlüsselworten, Datum der letzten Änderung suchen. Noch besser: Die Daten zusammenführen und als DB 2 Tabelle erstellen, damit man einfach nach allen möglichen Konstellationen suchen kann. 42. Course 2012 Limburg 29

Z/VSE ICCF SCAN ICCF Index: // JOB DISPLAY DIRECTORIES // EXEC PROC=DTRICCF (ASSIGN VSE/ICCF LIBRARY FILE) // EXEC DTSUTIL DSERV ALL COM SORTED 42. Course 2012 Limburg END /& 30

Z/VSE ICCF SCAN ICCF Index via FTP auf PC gesendet: . DSERV ALL COM SORTED --- DTSUTIL --- I C C F L I B R A R Y F I L E M A I N T E N A 1. . . 5. . . 10. . . 15. . . 20. . . 25. . . 30. . . 35. . . 40. . . 45. . . 50. . . 55. . . 60. . . 65. . . 7 LIBRARY 10 DATE OF LAST ACCESS IS 17/10/2011 MAY CONTAIN COMMON MEMBERS FREE SPACE RESTORE FACTOR IS A MEMBER F NAME USER C ID 25 42. Course 2012 Limburg FLAGS DATE *-----------* APPLYALL SYSA 01/07/2008 PUB APP 53337 SYSA 07/10/2008 PUB BSTSAV SYSA 19/05/2008 PUB CATALFCB SYSA 22/03/2007 PUB CATALUCB SYSA 14/12/2005 PUB CEEDOPT SYSA 23/06/2008 PUB 31

Z/VSE ICCF SCAN 10 APPLYALLSYSA 10 APPLYAL 2 SYSA 10 APP 53337 SYSA 10 BSTCONCTSYSA 10 BSTSAV SYSA 10 CATAAFCBSYSA 10 CATALIPLSYSA 10 CATALUCBSYSA 10 CATTCP SYSA 10 CEEDOPT SYSA 10 CEEWCOPTSYSA 10 CEEWDOPTSYSA | | | | 01/07/2008 22/01/2007 07/10/2008 27/08/2007 19/05/2008 22/03/2007 25/02/2010 14/12/2005 19/04/2009 23/06/2008 27/06/2011 27/06/2008 | | | | 42. Course 2012 Limburg ICCF Index Clean via JAVA Programm aufbereitet: 32

Z/VSE ICCF SCAN ICCF Member Punch: 42. Course 2012 Limburg // JOB DISPLAY DIRECTORIES // EXEC PROC=DTRICCF (ASSIGN VSE/ICCF LIBRARY FILE) // EXEC DTSUTIL PUNCH LIBRARY(10) COM PUNCTL PUNCH LIBRARY(11) COM PUNCTL PUNCH LIBRARY(96) COM PUNCTL PUNCH LIBRARY(98) COM PUNCTL PUNCH LIBRARY(100) COM PUNCTL PUNCH LIBRARY(111) COM PUNCTL PUNCH LIBRARY(112) COM PUNCTL PUNCH LIBRARY(113) COM PUNCTL PUNCH LIBRARY(126) COM PUNCTL END /& * $$ EOJ 33

Z/VSE ICCF SCAN ICCF Member Punch via FTP zum PC gesendet: 10 F$SYSA . . $$ JOB JNM=F$SYSA, CLASS=A, DISP=D, NTFY=YES // JOB SYSA PRINT FILE // DLBL PRINTFL, 'QMAIL. VSAM. TEMP', , VSAM, CAT=UCAT 222 // EXEC IDCAMS, SIZE=AUTO PRINT INFILE (PRINTFL) - 42. Course 2012 Limburg ADD MEMBER CHARACTER. . /*. . /&. . $$ EOJ END OF MEMBER 34

Z/VSE ICCF SCAN ICCF Member Punch via FTP zum PC gesendet: 10 CPGESD 1 D SYSA . . $$ JOB JNM=CPGESD 1 D, CLASS=0, DISP=D, NTFY=YES // JOB SYSA DELETE OBJECT // EXEC IDCAMS, SIZE=AUTO DELETE (CPGESD 1 ) - CLUSTER - PURGE - CATALOG (UCAT 220 ) 42. Course 2012 Limburg ADD MEMBER IF LASTCC NE 0 THEN CANCEL JOB. . END OF MEMBER ADD MEMBER 10 F$SYSA . . $$ JOB JNM=F$SYSA, CLASS=A, DISP=D, NTFY=YES // JOB SYSA PRINT FILE // DLBL PRINTFL, 'QMAIL. VSAM. TEMP', , VSAM, CAT=UCAT 222 // EXEC IDCAMS, SIZE=AUTO. . . 35

Z/VSE ICCF SCAN ICCF Member Punch CLEAN via Java Programm aufbereitet: 10 APPLYALL|000001|* $$ JOB JNM=DTRPTFAB, DISP=L, PRI=9, C 10 APPLYALL|000002|* $$ NTFY=YES, C 10 APPLYALL|000003|* $$ CLASS=0 10 APPLYALL|000004|* $$ LST DISP=H 10 APPLYALL|000005|// JOB DTRPTFAB 10 APPLYALL|000006|// OPTION IGNLOCK 10 APPLYALL|000007|* -----------------------------10 APPLYALL|000008|* A MANAGED JOB HAS FAILED. DO THE FOLLOWING: 42. Course 2012 Limburg LIB_MEM_Name|STMTNR|SOURCE-Statement 10 APPLYALL|000009|* 10 APPLYALL|000010|* 1. REPLY "EXIT" TO STOP THE JOB SEQUENCE. 10 APPLYALL|000011|* 2. FIX THE PROBLEM 10 APPLYALL|000012|* 3. RELEASE THIS JOB AGAIN (R RDR, DTRPTFAB) 10 APPLYALL|000013|* 4. REPLY "RESUME" TO RESTART PROCESSING OF THE ABORTED JOB. 10 APPLYALL|000014|* 10 APPLYALL|000015|* NOTE: IF YOU WANT TO EXIT THE PTF APPLICATION JOB STREAM IN 10 APPLYALL|000016|*. . . TO RESUME LATER ON FROM THE BEGINNING, REPLY "EXIT" 36

Z/VSE ICCF SCAN Job Streams: � DSERV � Liste Löschen ICCF_INDEX. txt wird mit Job Extract umgesetzt 42. Course 2012 Limburg � FTP * $$ JOB JNM=LSICCF 00, CLASS=M, DISP=K, DUETIME=0015, DUEDAY=(MON-FRI) * $$ LST CLASS=Y, RBS=0, RBM=0, DEST=(*, ZZ), EXPDAYS=1 // JOB DISPLAY DIRECTORIES // EXEC PROC=DTRICCF (ASSIGN VSE/ICCF LIBRARY FILE) // EXEC DTSUTIL DSERV ALL COM SORTED END /& * $$ EOJ * $$ JOB JNM=LSICCFDS, CLASS=M, DISP=K, DUETIME=0016, DUEDAY=(MON-FRI) * $$ LST CLASS=Y, DEST=(*, BZ), EXPDAYS=1 // JOB LSICCFDS FTP ICCF_INDEX --> PC // EXEC FTPBATCH, SIZE=FTPBATCH, PARM='ID=00, TRAN=GERMAN_03' LOPEN LUSER XXXX LPASS XXX OPEN 192. 168. 111. 045 USER YYYY PASS yyyy LCD POWER. LST. Y CD ICCF PUT LSICCF 00 ICCF_INDEX. TXT QUIT /* // EXEC BACEMT CMD L LST, LSICCF 00 /* /& * $$ EOJ 37

Z/VSE ICCF SCAN Job Streams: � PUNCH 42. Course 2012 Limburg � FTP * $$ JOB JNM=LSICCF 01, CLASS=M, DISP=K, DUETIME=0017, DUEDAY=(MON-FRI) * $$ LST CLASS=Y, RBS=0, DEST=(*, ZZ), EXPDAYS=1 * $$ PUN CLASS=Y, RBS=0, RBM=0, DEST=(*, ZZ) // JOB LSICCF 01 PUNCH LIBRARIES // EXEC PROC=DTRICCF // EXEC DTSUTIL PUNCH LIBRARY(11) COM PUNCTL PUNCH LIBRARY(93) COM PUNCTL PUNCH LIBRARY(94) COM PUNCTL PUNCH LIBRARY(102) COM PUNCTL END /* /& * $$ EOJ * $$ JOB JNM=LSICCFMB, CLASS=M, DISP=K, DUETIME=0018, DUEDAY=(MON-FRI) * $$ LST CLASS=Y, DEST=(*, ZZ), EXPDAYS=1 // JOB LSICCFMB FTP ICCF_Data --> PC // EXEC FTPBATCH, SIZE=FTPBATCH, PARM='ID=00, TRAN=GERMAN_03' LOPEN LUSER XXXX LPASS XXX OPEN 192. 168. 111. 45 USER YYYY PASS yyyy LCD POWER. PUN. Y 38

Z/VSE ICCF SCAN Job Streams: � Liste Löschen � Extract Data Daten Index CD ICCF PUT LSICCF 01 ICCF_DATA. TXT QUIT /* // EXEC BACEMT Liste Löschen CMD L PUN, LSICCF 01 CMD L LST, LSICCF 01 /* /& // JOB EXTRACT ICCF INDEX Extract Index // EXEC CPGSHBAT, PARM='IPADDR=192. 168. 111. 045: 04799' $$$$00 Iccf. Indx. cmd C: TempICCF_INDEX. TXT C: TempICCF_INDEX_Clean. txt /* /* * Wait 10 Seconds // EXEC BACEMT BWAIT 0010 /* * EXTRACT DATA // EXEC CPGSHBAT, PARM='IPADDR=192. 168. 111. 045, IPPORT=04799' $$$$00 Iccf. Extr. cmd C: /Temp/ICCF_DATA. TXT C: /Temp/ICCF_DATA_Clean. txt /* /& * $$ EOJ 42. Course 2012 Limburg � EXTRACT Index * * 39

Z/VSE ICCF SCAN Import in Datenbank * 42. Course 2012 Limburg * $$ JOB JNM=LSICCF 02, CLASS=M, DISP=K, DUETIME=0027, DUEDAY=(MON-FRI) * $$ LST CLASS=Y, DEST=(, BZ), EXPDAYS=1 // JOB IMPORT ICCF TO MYSQL // EXEC CPGSHBAT, PARM='IPADDR=192. 168. 111. 045: 04799' $$$$00 ICCF_Import. exe PROD C: TempICCF_INDEX_Clean. txt C: TempICCF_DATA_Clean. txt /* /& *PARTIAL END PRINT * $$ EOJ Daten und Index werden in eine Relationale Datenbank geladen. Somit kann mit einem Select und entsprechender Where Clause jeder Suchbegriff sowohl in den Daten als auch im Index blitzschnell gefunden werden 40

Z/VSE ICCF SCAN Anzeige im Browser: 42. Course 2012 Limburg 41 41

Z/VSE ICCF SCAN Anzeige im Browser: 42. Course 2012 Limburg 42

Z/VSE ICCF SCAN Vorteile: Schnelles Auffinden von Member � Jedes Suchkriterium erlaubt � Nur ab Datum � Im Browser verfügbar an jedem Arbeitsplatz � CPGSHBAT ( CPG Shell Aufruf Batch) kann Programme auf einem Windows oder Linux System aufrufen und ausführen Das können auch CMD oder. BAT Dateien sein � Wartet auf Ende der Verarbeitung � 42. Course 2012 Limburg Wir bieten auch die komplette Anwendung ICCF Scan an, evtl. auch für CMS und andere. 43

TCP/IP DNS NAMENSAUFLÖSUNG Werden bei einem Profil einer Anwendung feste IP Adressen verwendet, führt jede Netzwerk Umstellung zu dem Problem: Wie heißt die aktuelle IP – Adresse meines Dienstes? Werden DNS Namen verwendet so wird nur noch die neue IP- Adresse im DNS Server geändert und alles ist OK. Die Administration wird vereinfacht. 42. Course 2012 Limburg 44

TCP/IP DNS NAMENSAUFLÖSUNG Lattwein Produkte haben bis CPG 2. 5 nur feste IP Adressen verwendet außer für QIT. CPGJDBC kennt ab CPG 2. 6 auch DNS Namen. Wie wird das eingetragen? In der Tabelle QJDBCGTB können beide Varianten eingetragen werden: 42. Course 2012 Limburg 45

TCP/IP DNS NAMENSAUFLÖSUNG *-----------------------------------* CPGDB DC CL 8'CPGDB ' DBNAME * 42. Course 2012 Limburg DC CL 2'00' TCPIP_SYSID * DC CL 50'jdbc: db 2: cpgdb DBADMIN PASSWD ' * DC CL 50' ' * Feste IP Adresse DC CL 29'000. 192. 168. 197. 040: 04720' * DC CL 10' ', C'C' RESERVED, CONSOLMESSAGES * *-----------------------------------* DBMAS DC CL 8'DBMAS ' DBNAME * DC CL 2'00' TCPIP_SYSID * DC CL 50'jdbc: db 2: dbmas DBADMIN PASSWD ' * DC CL 50' ' * DC CL 6'DYNDNS' KEYWORD for DYNDNS * DC AL 4(DYNDNS 01) POINTER TO NAME * DC H'4720' PORT * DC CL 17' ' * DC CL 10' ', C'C' RESERVED, CONSOLMESSAGES * *-----------------------------------* DC XL 16'FFFFFFFFFFFFFFFF' * DNS Name DYNDNS 01 DC AL 1(10), CL 10'PC-MAASSEN' * DYNDNS 02 DC AL 1(25), Cl 25'lattwebmysql. lattwein. de' * DYNDNS 03 DC AL 1(21), Cl 21'lw 2003 sbs. lattwein. de' * 46

TCP/IP DNS NAMENSAUFLÖSUNG Bisher unterstützt: Online und Batch CPG 5 FTP In Planung für 2. 6: QCFTCPML Mail Online und Batch CPGSHELL 42. Course 2012 Limburg CPGJDBC Qit. NET Ausführen von VSE auf Windows/Linux 47

TCP/IP API VERSIONEN CPG Version CPG 2. 5 CPG 2. 6 EXEC Level API TCP/IP 1. 5 E z/VSE ab VSE/ESA 2. 6 CSI und BSI CPG 2. 5 CPG 2. 6 EXEC Level API TCP/IP 1. 5 F z/VSE ab z/VSE 4. 1 Nur CSI ! CPG 2. 6 42. Course 2012 Limburg CPG unterstützt folgende API‘s für TCP/IP: API Umgebung IP Versionen EZA Call z/OS: alle Interface z/VSE ab 4. 1 z/VSE: CSI und BSI Bisher ist nur das EXEC Level API mit 1. 5 E beim Kunden installiert. Dieses Interface erzeugt das Assembler Socket API durch Preprozessor und geht auch mit BSI! Der Preprozessor ab TCP/IP 1. 5 F generiert CALL Aufrufe nur für den CSI Stack! Tipp: Die CSI - Sublibrary TCPIP 1. 5 E nicht löschen ! 48

AROUND Z/VSE 42. Course 2012 Limburg Neues von z/VSE 5. 1 64 Bit Adressierung CICS Explorer LFP Linux Fast Path VIA – z/VM IP Assist 49

AROUND Z/VSE 42. Course 2012 Limburg 50

AROUND Z/VSE 42. Course 2012 Limburg 51

WER KANN LFP ODERV IA BENUTZEN? Was nicht geht: FTP TELNET � HTTP Server im z/VSE LPR und LPD 42. Course 2012 Limburg � Alle IBM Konnektoren können LFP und VIA Alle Lattwein Produkte verwenden Socket API oder EZA CALL Interface � CPG 5 CPGXML Qit. NET � CPGSHELL MAIL 4 HOST CPGJDBC 52 52

VIRTUAL Z/VSE FTP DAEMON Virtual z/VSE FTP Daemon kann auf jeder Java Plattform installiert werden und emuliert einen FTP Server. Der Zugriff zu den z/VSE Ressourcen erfolgt über die aktuellen VSE Connector Der Virtual z/VSE FTP Daemon: � Handhabt alle FTP Clientanfragen � Kann sich zu einem oder mehreren VSE Connector Servern verbinden. � Ist verantwortlich für das Connection Handling � Und führt die entsprechende Übersetzung der Daten durch (ASCII EBCDIC/ EBCDIC ASCII). � Kann IPv 6. Man kann sich zum Virtual FTP Daemon über FTP Clients mit IPv 6 verbinden, und der Virtual z/VSE FTP Daemon verbindet sich zum VSE Connector Server mit IPv 4. � 42. Course 2012 Limburg Server (Minimum: z/VSE 4. 3) Unterstützt SSL, beide Verbindungen für den FTP (zwischen FTP Client und Virtual z/VSE FTP Daemon, verwenden implizites SSL (FTPS), ebenso die Verbindung zum VSE Connector Server (zwischen Virtual z/VSE FTP Daemon und z/VSE Host). Anmerkung: Dieses Tool basiert auf dem aktuellen VSE Connector Client und braucht mindestens ein JRE/JDK 1. 5 oder grösser. 53 53

VIRTUAL Z/VSE FTP DAEMON Vorteile: Double. Byte Codepages (Chinesisch, Japanisch, Arabisch, etc). � Da die Codepage Übersetzung auf dem PC stattfindet, wird die CPU Last dafür von VSE zum PC 'offloaded', spart also CPU Last auf VSE � SSL Support (kostenlos), bei CSI ist das u. U. ein kostenpflichtiges Feature, BSI hat es 42. Course 2012 Limburg � Unterstützung von Codepages welche CSI/BSI nicht unterstützt, z. B. UTF-8 oder auch heute noch gar nicht � IPv 6 Support - geht heute auch nur mit BSI, nicht aber mit CSI � Performance Vorteile, wenn mit Linux Fast Path oder VIA verwendet 54 54

VIRTUAL Z/VSE FTP DAEMON Wie geht das ? � Das Bild zeigt die Anbindung zwischen einem FTP Client und einem virtual z/VSE FTP 42. Course 2012 Limburg Daemon: 192. 168. 1. 21 192. 168. 1. 40 / PC-MAASSEN © IBM: Picture aus Virtual z/VSE FTP Daemon Help 55 192. 168. 42. 22 VSE 431 55

VIRTUAL Z/VSE FTP DAEMON Voraussetzungen: VSE Connector Client und VSE Connector Server müssen auf einem aktuellen Stand von z/VSE 4. 3 sein. Es muss eine TCP/IP Verbindung zwischen beiden Systemen möglich sein. Der z/VSE Connector Server (STARTVCS) muss in einer z/VSE Partition gestartet sein. Der Virtual z/VSE FTP Daemon muss auf einem System (Linux on System z, Linux, Unix, Windows) gestartet sein. 42. Course 2012 Limburg 57 57

VIRTUAL Z/VSE FTP DAEMON Client Angaben (File. Zilla): IP-Port FTP Daemon IP-Adress Virtual FTP Daemon 42. Course 2012 Limburg 60 60

VIRTUAL Z/VSE FTP DAEMON Ansicht nach Verbindung (File. Zilla): 42. Course 2012 Limburg 61 61

VIRTUAL Z/VSE FTP DAEMON Das geht auch als FTP Session: 62 42. Course 2012 Limburg C: Dokumente und EinstellungenMaassen 2>ftp ftp> open pc-maassen 1021 Verbindung mit PC-Maassen wurde hergestellt. 220 IBM Virtual z/VSE FTP Server on PC-Maassen: 1021 (version 1. 0) ready to serve. Oder: SYSA@myvse 2 Benutzer (PC-Maassen: (none)): SYSA 331 Password required for SYSA. Kennwort: . . . . 230 User SYSA logged in. Idle timeout is 15 minutes. ftp> ls 200 PORT command successful. 150 ASCII data connection for / (192. 168. 197. 40, 42835). ICCF LIBR POWER VSAM 226 ASCII transfer complete. FTP: 64 d Bytes empfangen in 0, 00 Sekunden 25000, 00 KB/s ftp> cd powerrdr7 250 CWD command successful, current directory is "/POWER/RDR/7". ftp> ls 200 PORT command successful. 150 ASCII data connection for /POWER/RDR/7 (192. 168. 197. 40, 42836). PAUSEF 7. 00035%34 TCPIP 00. 00020%19 226 ASCII transfer complete. FTP: 64 d Bytes empfangen in 0, 09 Sekunden 0, 58 KB/s ftp> bye 221 Goodbye. 62

VIRTUAL Z/VSE FTP DAEMON Fazit: Viele neue Möglichkeiten FTP im z/VSE zu benutzen. IP-Adresse von z/VSE braucht man nicht zu veröffentlichen. IPv 6 Support - geht heute auch nur mit BSI, nicht aber mit CSI. Performance Vorteile wenn mit Linux Fast Path/VIA verwendet. SSL Support (kostenlos), bei CSI ist das u. U. ein kostenpflichtiges Feature, BSI hat es heute noch gar nicht. 63 63 42. Course 2012 Limburg

VIRTUAL Z/VSE FTP DAEMON Auch wir schauen was IBM an neuen Funktionen bietet. Ø Wir haben fast alle Konnektoren getestet, um Ihnen die Vorteile zeigen zu können Ø Diesen und andere Konnektoren zeigen wir bei unseren Seminaren Ø Die Seminare werden ständig aktualisiert. Ø 64 42. Course 2012 Limburg Ø 64

SYSTEM - SEMINARE Wir bieten Seminare an, bei Bedarf bitte anfragen. VSE/VSAM-Grundlagen 5 Tage � VSE-Operating 5 Tage � VSE-Kompakt Teil 1: VSE-Installation 5 Tage � VSE-Kompakt Teil 2: VSE-Administration 5 Tage � * Inside TCP/IP for VSE 3 Tage 4 Tage mit BSI Stack 4 Tage � CICS Transaction Server 4 Tage � Dump-Analyse 2 Tage � Performance 3 Tage � IBM Konnektoren 2 Tage � z/VSE Security ( in Planung ) 2 Tage Seminare - nicht nur für System Programmierer ! 42. Course 2012 Limburg � 65

Noch Fragen ? 42. Course 2012 Limburg VIELEN DANK FÜR IHRE AUFMERKSAMKEIT 66