Re(8): Mainframe JCL Execution

Impressum | Werbung

Geizhals » Forum » Programmierung »

Mainframe JCL Execution (36 Beiträge, 260 Mal gelesen)

Top-100 | Fresh-100

Du bist nicht angemeldet. [ Login/Registrieren ]

warum kommt der Fehler?

hier mein JCL File:

//T3BERG  JOB 'T3BERG',CLASS=A,MSGCLASS=X
//AUSFUEHR EXEC PGM=BERG
//FILEOUT DD SYSOUT=*
//FILEIN DD *
2222222222DER MÄRCHENPRINZ    GRIMM             TRÄUMEVERLAG   M221888099900066
1212121212PROGRAMMIEREN-DUMMYSWITZMANN          OLDENBERG      F092001088800055

Info: verwende Mainframe Express 3.0.75 und habe es schon zwei mal neuinstalliert, hat aber leider nichts genutzt

thx für eure Hilfe

mfg

Re: Mainframe JCL Execution (pong am 18.03.2007, 16:43:29)

Re(2): Mainframe JCL Execution (_E_r_I_c_H_ am 18.03.2007, 16:44:04)

Re(3): Mainframe JCL Execution (pong am 18.03.2007, 16:45:36)

Vom Autor zurückgezogen oder Autor hat seine Registrierung nicht bestätigt (_E_r_I_c_H_ am 18.03.2007, 16:53:29)

Re(5): Mainframe JCL Execution (pong am 18.03.2007, 17:09:13)

Re(6): Mainframe JCL Execution (_E_r_I_c_H_ am 18.03.2007, 17:11:34)

Re(7): Mainframe JCL Execution (pong am 18.03.2007, 17:12:17)

Vom Autor zurückgezogen oder Autor hat seine Registrierung nicht bestätigt (_E_r_I_c_H_ am 18.03.2007, 17:17:39)

Re(9): Mainframe JCL Execution (pong am 18.03.2007, 17:19:35)

Re(10): Mainframe JCL Execution (_E_r_I_c_H_ am 18.03.2007, 17:22:30)

Re(11): Mainframe JCL Execution (pong am 18.03.2007, 17:26:32)

Re(12): Mainframe JCL Execution (_E_r_I_c_H_ am 18.03.2007, 17:28:51)

Re(13): Mainframe JCL Execution (pong am 18.03.2007, 17:31:05)

Re(14): Mainframe JCL Execution (_E_r_I_c_H_ am 18.03.2007, 17:48:40)

Re(15): Mainframe JCL Execution (pong am 18.03.2007, 18:40:22)

Re(16): Mainframe JCL Execution (_E_r_I_c_H_ am 18.03.2007, 18:43:51)

Re(17): Mainframe JCL Execution (pong am 18.03.2007, 18:48:42)

Re(18): Mainframe JCL Execution (_E_r_I_c_H_ am 18.03.2007, 19:02:05)

Re(19): Mainframe JCL Execution (pong am 18.03.2007, 19:06:01)

Re(20): Mainframe JCL Execution (_E_r_I_c_H_ am 18.03.2007, 19:08:34)

Re(21): Mainframe JCL Execution (pong am 18.03.2007, 19:20:16)

Re(22): Mainframe JCL Execution (_E_r_I_c_H_ am 18.03.2007, 19:41:50)

Re(23): Mainframe JCL Execution (pong am 18.03.2007, 19:50:43)

Re(24): Mainframe JCL Execution (_E_r_I_c_H_ am 18.03.2007, 19:58:52)

Re(25): Mainframe JCL Execution (pong am 18.03.2007, 20:08:41)

Re(26): Mainframe JCL Execution (_E_r_I_c_H_ am 18.03.2007, 20:16:53)

Re(9): Mainframe JCL Execution (pong am 18.03.2007, 17:21:55)

Re(10): Mainframe JCL Execution (_E_r_I_c_H_ am 18.03.2007, 17:22:53)

Re(11): Mainframe JCL Execution (pong am 18.03.2007, 17:23:54)

Re(12): Mainframe JCL Execution (_E_r_I_c_H_ am 18.03.2007, 17:27:21)

ein selbst geschriebenes

Das PL/1 File:

KINO: Procedure Options (Main);

  dcl 1 Kino                                                  ,
        2 Titel         char(20)                              ,
        2 Genre         char(20)                              ,
        2 Laenge        pic '999'                             ,
        2 Freigabe      pic '99'                              ,
        2 Regisseu                                            ,
          3 vorname     char(15)                              ,
          3 nachname    char(20)                              ,
        2 KinoStar      pic '9999'                            ;
  dcl 1 KinoOut                                               ,
        2 Titel         char(20)                              ,
        2 Laenge        pic '999'                             ,
        2 Freigabe      pic '99'                              ,
        2 Regisseu                                            ,
          3 vorname     char(15)                              ,
          3 nachname    char(20)                              ,
        2 KinoStar      pic '9999'                            ;
  dcl 1 Head                                                  ,
        2 Titel         char(20)    init('Titel')             ,
        2 Laenge        char(20)    init('Laenge')            ,
        2 Freigabe      char(20)    init('Freigegeben ab')    ,
        2 Regisseu      char(35)    init('Regisseur')         ,
        2 KinoStar      char(10)    init('Film gestartet am') ;
  dcl FileIn            file record input env(f recsize(80))  ;
  dcl FileOut           file record output env(f recsize(80)) ;
  dcl eof               bit(1) init('0'B)                     ;
  dcl 1 countTot                                              ,
        2 absta         char(5)                               ,
        2 num           dec(3,0)                              ,
        2 abstb         char(93)                              ;
  dcl Grenze            char(105)                             ;
  dcl 1 GenreAnf                                              ,
        2 absta         char(5)                               ,
        2 typ           char(6)     init('Ende')              ,
        2 Titel         char(20)                              ,
        2 abstb         char(70)                              ;
  dcl 1 GenreEnd                                              ,
        2 absta         char(5)                               ,
        2 typ           char(6)     init('Anfang')            ,
        2 Titel         char(20)                              ,
        2 numa          char(2)     init(' (')                ,
        2 numb          dec(3,0)                              ,
        2 numc          char(1)     init(')')                 ,
        2 abstb         char(64)                              ;
  dcl Meins             char(105)                             ;

  open file(FileIn);
  open file(FileOut);

  Meins = 'Kino-Programm con Erich Berger 3BHDV';
  write file(FileOut) from (Meins);
  write file(FileOut) from (Head);

  on endfile(FileIn) eof=1;
  countTot.num = 0;

  do while(^eof);
    read file(FileIn) into(Kino);

    GenreEnd.numb = 0;
    GenreEnd.Titel = Kino.Genre;
    GenreAnf.Titel = Kino.Genre;
    write file(FileOut) from(GenreAnf);

    do while((GenreAnf.Titel = Kino.Genre) & ^eof);
      KinoOut.Titel = Kino.Titel;
      KinoOut.Laenge = Kino.Laenge;
      KinoOut.Freigabe = Kino.Freigabe;
      KinoOut.Regisseu.vorname = Kino.Regisseu.vorname;
      KinoOut.Regisseu.nachname = Kino.Regisseu.nachname;
      KinoOut.KinoStar = Kino.KinoStar;

      write file(FileOut) from (KinoOut);
      read file(FileIn) into (Kino);
      GenreEnd.numb = GenreEnd.numb + 1;
    end;

    countTot.num = countTot.num + GenreEnd.numb;

    write file(FileOut) from(GenreEnd);
    write file(FileOut) from(Grenze);
  end;

  write file(FileOut) from(Grenze);
  write file(FileOut) from(countTot);

  close file(FileIn);
  close file(FileOut);
end KINO;

Das JCL File:

//KINO  JOB 'KINO-PR2',CLASS=A,MSGCLASS=X
//AUSFUEHR EXEC PGM=ERIC
//FILEOUT DD SYSOUT=*
//FILEIN DD *
Deja Vu             Science-Fiction     12712Tony           Scott               2006
Children of Men     Science-Fiction     10816Alfonso        Cuaron              2006
Casino Royale       Action              14512Martin         Campbell            2006
Cars                Komoedie            11600John           Lasseter            2006
Borat               Komoedie            08512Larry          Charles             2006
Black Christmas     Thriller            08516Glen           Morgan              2006
Babel               Drama               14414Alejandro      Gonzalez Inarritu   2006
Apocalypto          Action              13814Mel            Gibson              2006
Ab durch die Hecke  Komoedie            08300Karey          Kirkpatrick         2006
7 Zwerke 2          Komoedie            09506Sven           Unterwaldt          2006

mfg

[ Dieser Beitrag wurde inzwischen editiert. Die aktuelle Version befindet sich hier. ]

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung