MVS OS/390

IBM Mainframe Systeme

Andere Tipps: OS/2 Tipps   Win NT Tipps  Hardware Tipps  Linux Tipps

Inhalt

System Completion Codes
Code Bedeutung
SF13 eigentlich ein SVC Fehler,
tritt aber auch auf, wenn Bänder mit OPEN WRITE und DISP=SHR 
angesprochen werden da ein Überschreiben von Bändern durch Installationsparameter verboten wird
S013-20 Falsche LRECL oder BLKSIZE
S0C1 operation exception
Im ASM-Batch : 
   möglicher Fehler: 
      DD Statement missing
S0C7 data exception
möglicher Fehler
im C-Programm: 
1. suchen f §§FECBCVGLPAK 
2. PgUp bis zum nächsten Unterprogrammnamen 
S0D5 JCL IMS Steplib fehlt
S0222
S0322		 Operator Cancel
S0522 Time
S0688 JCL IMS Dynalloc Lib fehlt

Inhalt

 

User Completion Codes
U21xx Programmierte Abbrüche
U0775 BMP-Programm schreibt keine korrekten Checkpoints
weitere Erklärung: 
Cursor auf U... stellen und 'qw' aufrufen! 
U0456 Datenbank-PSB gestoppt 
PSB-Name aus DIM900 Parm-Karte ermitteln 
   PARM='BMP,DIAM900,bmlb57b,...... 
also 
PSB-Name = BMLB57B 
U0457 Datenbank-PSB bereits in einer anderen BMP-Region gesteartet 
z.B. 
PSB-Name = BMLB57B 
Abhilfe: 
Andere Jobklasse verwenden 
U0476 PCB-zerstört 
Ein Programm hat in den PCB Bereich des IMS'  Anwenderdaten 
reingeschrieben. 
mögliche Ursache: 
ASM   Basisregister-Probleme 
      neue DB Segmente mit anderen Längen 

C     nicht oder falsch initialisierte Pointer 
      XBXSEG SBX, *P_SBX; 
      P_SBX = &SBX;   <<< wenn z.B. diese Zeile fehlt !!!! 
 
U0775 BMP-Programm schreibt keine korrekten Checkpoints 
weitere Erklärung: 
Cursor auf U... stellen und 'qws' aufrufen! 
U0852 TRITT HIN UND WIEDER BEI DB-LESE-BATCH-JOBS IM IMS (ECHT) UNTER DLI AUF
WENN GLEICHZEITIG ONLINE AKTIV IST. 

NOCHMAL SUBMITTEN ! 
Inhalt

 

Tipps und Tricks
DASD Devices Speicherkapazität 3390 
bytes  / Track           56.664 
Tracks / Cylinder            15 
bytes  / Cylinder       849.960 = ca. 0,85 MB
IMS Datenbankstatus /DIS DB <Datenbankname>
Beispiel /DIS DB XB01

Display 
Start 
Stopp 

regions, 
transactions, 
programs

 /dis a reg 
/dis tran <tc-code> 
/dis pgm <psb-name> 
      . 
/dis db <dbd-name> 
/sta tran <tc-code> 
/sta pgm <psb-name> 
      . 
/sta db <dbd-name> 
/sta reg <jobname> 
/sto tran <tc-code> 
/sto pgm <psb-name> 
      . 
/sto db <dbd-name> 
/sto reg <regid> 
IMS Feedback Area 1-8    chr8  DB-Name 
9-10   chr2  Segment-Hierarchiestufe 
11-12  chr2  Status-Code 
13-17  chr4  Verarbeitungsregel 
18-21  bin4  reserv. für DL/1 
22-29  chr8  Segment-Name 
30-34  bin4  Länge verketteter Schlüssel 
35-38  bin4  Anzahl sensitiver Segmenttypen 
       chrn  Key-Feedback-Area (n = mind. Länge PCB)
Intranet Server senden zum Intranet Server
oput   HTML(ABGLEICH)   '/u/tsbhs/html/abgleich.html' TEXT CONVERT(YES)
Tape Devices
  Erstellungsdatum von Bändern ermitteln 
  ISPF 3.4  Dateiname eingeben, als Line-Command     LTC   eingeben

Inhalt


 

C/370
C/370 Zeichensatz C-ZEICHENSATZ                 Trigraph       3270-Tastatur   EBCDIC 
----------------------------------------------------------------------
{   GESCHWEIFTE KLAMMER AUF   ??<            7 zwchange      8D 
ü   GESCHWEIFTE KLAMMER ZU    ??>            0 zwchange      9D 
[   ECKIGE      KLAMMER AUF   ??(            8 zwchange      AD 
]   ECKIGE      KLAMMER ZU    ??)            9 zwchange      BD 
\   BACKSLASH                 Ö              Ö               E0 
~   TILDE                                    + zwchange      A1 
!   LOGISCH NOT               Ü              Ü 
|   LOGISCH ODER              ??!            ??!             FA 
&   LOGISCH UND               &              & 
!!  BITWEISE ODER             ??!??!         ??!??! 
&&  BITWEISE UND              &&             && 
>=  greater equal             >=             >= 
!=  not equal                 Ü=             Ü=              7B 
<=  less equal                <=             <=

Inhalt
Link/370 Link von externen Objekten 
========================== 
   XC()  //  COBJ  Enthält Funktionen 
         //  ACHTUNG: Funktionsname darf nicht static sein !!! 
   {
      xc_a1 
      xc_a2 ... 
   }

   Im Include benoetigt man eine Andockstelle fuer den Linker 
   Andockstelle ist 
   xcobj_reference ()   // diese Funktion wird nie aufgerufen 
   { 
       XC();  //      Objekt  wird hier einmal aufgerufen 
   }          //       dient aber nur dem Linker, um die 
              //       Verbindung herzustellen 
REXX/370 Logische operatoren 
   if ( A AND B)  heißt auf rexisch   if A & B 
   if ( A OR  B)  heißt auf rexisch   if A ! B 

Fortsetzungszeile                     Komma (,) 

Userid 
 uid = SYSVAR(sysuid) 
SDSF Edit und resubmit 
================= 
  Job anzeigen 
  Linecommand <?> 
  vor JCL Linecommand <sj> editiert die JCL

Show Output 
=========== 
   o = Output anzeigen 
   vor Jobname Linecommand <?>     DDNAMEe wird angezeigt
   mit <PF10> <PF11> kann man Attribute anzeigen 
   z.B. auch AFP JES2 OUTPUT USERLIBS 

Copy  SDSF -> Dataset 
===================== 
  Verwendung: Einen SDSF-Bestand in eine Permanente Datei Kopieren 
  SDSF-Kommandos 
    print odsn 't.slbarme.sdsf1'       // Open File DSN muss vorhanden
    print 1 30000                      // Print Record 1 bis 30000 
    print close                        // Close File 

SDSF PFK10 verschiebt Anzeige-Spalten, die man mit VIEW-ARRANGE 
auch anders anordnen kann                          ============ 

Inhalt


 
Etwas seltenere JCL Statements
UNIT=(,,DEFER) Tape Volume erst später (z.B. beim nächsten OPEN) mounten
UNIT=ACS2 Kassetteneinheit (TAPE Unit)
UNIT=SYSDA Pool von Platten ansprechen 
DATACLAS=DCSTPX37 Erweiterung des SPACE Statements
gibt Plattenplatz mit bis zu 80 (!) Extents (normal sind 15) 
Beispiel:
//SYSPRINT  DD DSN=T.BL.A48E068.SBSP59A9.SYSPRNT.PF01, 
//        DISP=(NEW,CATLG,CATLG), 
//          DCB=(RECFM=FBA,LRECL=133,BLKSIZE=13300), 
//          UNIT=(SYSDA,5),SPACE=(CYL,(55,55),RLSE), 
//          DATACLAS=DCSTPX37 

Inhalt

Inhalt


Inhalt

Inhalt

Inhalt