ISPFGUI Beispiel                        goto homepage

YCOS bietet Ihnen auf den folgenden Seiten interessante Beispiele. Die Nutzung dieser Beispiele unterliegt Ihrer Verantwortung; die Firma YCOS übernimmt dafür keine Gewährleistung!

 

Ich empfehle JEDEM ISPF Benutzer die Einrichtung der ISPF GUI Interface! Das kann folgendermaßen erfolgen:

1.      Installation der GUI

a.      Download ISP.SISPGUI(ISPGUINX) to PC Binary

b.      Call “Install” on PC – the downloaded PC Binary file

c.      Call WSA – the GUI Interface on PC – on your PC (put in AUTOSTART!)

d.      Check – Optionen – TCP/IP aktivieren

2.      PC IP Addresse ermitteln

a.      cmd: IPCONFIG

3.      ISPF aktivieren

a.      WSCON (NICHT SPLIT SCREEN!) aufrufen – oder Option 0 -> Workstation -> Workstation Connection

+-----------------------------------------------------------------------+
!                   Initiate Workstation Connection                     !
! Command ===>                                                          !
!                                                          More:     +  !
! /  Save values in system profile?  (/=Yes)                            !
!                                                                       !
! Workstation Connection                    GUI Network Protocol        !
! 2  1. With GUI display                    1  1. TCP/IP                !
!    2. Without GUI display                    2. APPC                  !
!                                              3. Use ISPDTPRF file     !
!                                                                       !
! GUI Title                                                             !
!                                                                       !
! TCP/IP Address                                                        !
! 10.12.100.24                                                          !
! APPC Address                                                          !
!                                                                       !
!                                                                       !
!                                                                       !
! Host Codepage  . . .          Host Character Set . . .                !
!                                                                       !
! GUI Window Frame              Default Window Background Color         !
!
1  1. Standard (STD)          1  1. Dialog (DLG)                      !
+-----------------------------------------------------------------------+

b.      der PC – WSA – verlangt eine Bestätigung für den Aufbau der Connection

4.      WSA Customization – um den Aufwand (WSA Bestätigung) zu reduzieren, können „bekannte“ Verbindungen in WSA eingetragen werden und damit wird die Verbindung automatisch aufgebaut

a.      WSA -> Optionen -> Systemregistrierung

                                                              i.      Hinzufügen: Host Systemnamen und deren IP-Adresse eintragen

                                                            ii.      Autom. Verbindung – Liste auswählen und Host Benutzer eintragen

Userid YVESUID darf von YVESSYS – IP 1.2.3.4 – eine automatische Connection aufbauen

5.      sobald die Verbindung aktiv ist, stehen folgende zusätzliche Funktionen zur Verfügung:

a.      PC Dateien lassen sich auf dem Host editieren (Edit, View)
Workstation File

   Menu  RefList  RefMode  Utilities  LMF  Workstation  Help                    
 ------------------------------------------------------------------------------
                                Edit Entry Panel 
 Command ===>                                                                  
                                                                    
 ISPF Library:
    Project . . . YVES     
    Group . . . . YCOS     . . .          . . .          . . .          
    Type  . . . . CNTL     
    Member  . . .                 (Blank or pattern for member selection list)
 
 Other Partitioned, Sequential or VSAM Data Set:
    Data Set Name . . . 
    Volume Serial . . .           (If not cataloged)
 
 Workstation File:
    File Name . . . . . c:\config.sys
                                         Options
 Initial Macro  . . . .                     Confirm Cancel/Move/Replace  
 Profile Name . . . . .                     Mixed Mode                   
 Format Name  . . . . .                     Edit on Workstation          

 Data Set Password  . .                     Preserve VB record length   

b.      Host Dateien lassen sich mit PC Tools editieren; welches Tool für Edit bzw. View verwendet wird, kann unter Workstation gewählt werden
Edit on Workstation

   Menu  RefList  RefMode  Utilities  LMF  Workstation  Help                    
 ------------------------------------------------------------------------------
                                Edit Entry Panel 
 Command ===>                                                                  
                                                                    
 ISPF Library:
    Project . . . YVES     
    Group . . . . YCOS     . . .          . . .          . . .          
    Type  . . . . CNTL     
    Member  . . .                 (Blank or pattern for member selection list)
 
 Other Partitioned, Sequential or VSAM Data Set:
    Data Set Name . . . 
    Volume Serial . . .           (If not cataloged)
 
 Workstation File:
    File Name . . . . . 
                                         Options
 Initial Macro  . . . .                     Confirm Cancel/Move/Replace  
 Profile Name . . . . .                     Mixed Mode                   
 Format Name  . . . . .                  /  Edit on Workstation          

 Data Set Password  . .                     Preserve VB record length    

c.      ISPF bietet ein Paar Schnittstellen – die Connection MUSS aktiv sein!

                                                              i.      File Transfer
/* REXX */
address ispexec
wsname="f:\wlm\wlmyves.txt"
hostname="YCOS.CNTL(WLMYVES)"
direc="HOST"  
direc="WS"    
type ="BINARY"
type ="TEXT"  
"FILEXFER HOST(hostname) WS(wsname) TO(“direc”)" type

                                                            ii.      Ausführung von Commands auf dem PC – WSCMD oder WSCMDV
/* REXX */
address ispexec
pc="Y:\Eigene Dateien\meine Datei YCOS.htm"                                    
xcez='CMD /C "'pc'"'                                                   
"select wscmdv(xceZ) INVIS"                                           
/* */
XCEZ='C:\Documents and Settings\yvesusr\Start Menu\Microsoft Excel.LNK'
xcez='CMD /C "'xcez'" /e'                                             
"select wscmdv(xceZ) INVIS"   

                                                          iii.      und andere (FILESTAT, WSCON…) – siehe ISPF User’s Guide

 

Hier eine „lustige“ Anwendung
auflisten eines Directory auf dem PC mit Ergebnis am Host

 


/* rexx */                                           
dir = arg(1)                                          
if dir="" then dir ="P:\"                            

hst="'YCOS.OUTPUT.DATA'"     /* muss existieren! LRECL 2000 */

ws = dir"YCOSOUT.DIR"                                
wsc = "CMD /C DIR" dir ">"ws" /X"                     
address ispexec,                                     
  "VPUT (WSC)"                                       
address ispexec,                                     
  "SELECT WSCMDV(WSC) INVIS MODAL"                   
address ispexec,                                      
  "FILEXFER HOST(hst) WS(ws) TO(HOST) TEXT"          
wsc = "CMD /C DEL" ws                                
address ispexec,                                     
  "VPUT (WSC)"                                       
address ispexec,                                     
  "SELECT WSCMDV(WSC) INVIS MODAL"                   
/* show the result */                                
address ispexec "view dataset("hst")"