IBM Mainframe Forum

Mainframe Technical Support Forums

Skip to content


Sysout - problem



Ask queries about other IBM Tools like Tivoli, COBTEST, Fault Analyzer, z/OS File Manager, Workload Simulator, APA, SCLM, Merge & Migration Tools etc...
Post a reply

Sysout - problem

Postby GUI1504 » Wed Sep 29, 2010 11:21 pm

Hello everybody, i've been reported an error lik these, but "magically" it was resolved. Now, I can't see the sysout item on SDSF > Status of Job. Can anyone help me?

On S>ST page just appears: JESMSGLG, JESJCL, JESYSMSGS, SYSPRINT and SYSLOUT

JCL
Select all
//GUI1504J    JOB (GUI1504),GUI1504,CLASS=A,MSGCLASS=X,NOTIFY=GUI1504
//PROCLIB     JCLLIB ORDER=IBMMFS.PROC.IBMCOB                       
//COMPILE     EXEC IGYWCG                                           
//ENTRADA     DD DSN=GUI1504.RDWRT.ENTRADA,DISP=SHR                 
//COBOL.SYSIN DD DSN=GUI1504.RDWRT.COBOL,DISP=SHR                   
//SYSPRINT    DD SYSOUT=*                                           
/*                                                                   


COBOL
Select all
       IDENTIFICATION DIVISION.
       PROGRAM-ID. RDWRT.
      *
      *
       ENVIRONMENT DIVISION.
      *
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT ENTRADA
           ASSIGN TO ENTRADA
           FILE STATUS IS WS-STATUS.
      *
      *
       DATA DIVISION.
      *
       FILE SECTION.
       FD ENTRADA
           LABEL RECORD IS STANDARD
           RECORDING MODE IS F
           RECORD CONTAINS 80 CHARACTERS.
      *
       01 REG-ENTRADA PIC X(80).
      *
       WORKING-STORAGE SECTION.
      *
       01 WS-STATUS          PIC X(02).
       01 REGISTRO.
          10 REG-NOME        PIC X(30).
          10 REG-IDADE       PIC 9(02).
          10 FILLER          PIC X(48).
       01 REG-SAIDA.
          10 REG-SAIDA-NOME  PIC X(30).
          10 FILLER          PIC X(15).
          10 REG-SAIDA-IDADE PIC 9(02).
          10 FILLER          PIC X(13).
          10 REG-SAIDA-DESCR PIC X(15).
       01 CONTADORES.
          10 IDOSO           PIC 9(2).
          10 ADULTO          PIC 9(2).
          10 ADULTO-JOVEM    PIC 9(2).
          10 ADOLESCENTE     PIC 9(2).
          10 CRIANCA         PIC 9(2).
          10 GERAL           PIC 9(2).
      *
      *
       PROCEDURE DIVISION.
      *
       1000-MAIN.
           OPEN INPUT ENTRADA
           READ ENTRADA INTO REGISTRO AT END
           INITIALIZE CONTADORES
           PERFORM 2000-COMP
           COMPUTE GERAL = IDOSO + ADULTO + ADULTO-JOVEM + CRIANCA
                   + ADOLESCENTE
           PERFORM 3000-DISPLAY
           CLOSE ENTRADA.
           STOP RUN.
      *
       2000-COMP.
           IF REG-IDADE GREATER THAN 60
              MOVE REG-NOME TO REG-SAIDA-NOME
              MOVE REG-IDADE TO REG-SAIDA-IDADE
              MOVE "IDOSO" TO REG-SAIDA-DESCR
              DISPLAY 'NOME: ' REG-SAIDA-NOME
              DISPLAY 'IDADE: ' REG-SAIDA-IDADE
              DISPLAY 'DESCRICAO: ' REG-SAIDA-DESCR
              DISPLAY ' '
              ADD 1 TO IDOSO
           ELSE
           IF REG-IDADE GREATER THAN 40
              MOVE "ADULTO" TO REG-SAIDA-DESCR
              DISPLAY 'NOME: ' REG-SAIDA-NOME
              DISPLAY 'IDADE: ' REG-SAIDA-IDADE
              DISPLAY 'DESCRICAO: ' REG-SAIDA-DESCR
              DISPLAY ' '
              ADD 1 TO ADULTO
           ELSE
           IF REG-IDADE GREATER THAN 20
              MOVE "ADULTO JOVEM" TO REG-SAIDA-DESCR
              DISPLAY 'NOME: ' REG-SAIDA-NOME
              DISPLAY 'IDADE: ' REG-SAIDA-IDADE
              DISPLAY 'DESCRICAO: ' REG-SAIDA-DESCR
              DISPLAY ' '
              ADD 1 TO ADULTO-JOVEM
           ELSE
           IF REG-IDADE GREATER THAN 14
              MOVE "ADOLESCENTE" TO REG-SAIDA-DESCR
              MOVE "ADULTO JOVEM" TO REG-SAIDA-DESCR
              DISPLAY 'NOME: ' REG-SAIDA-NOME
              ADD 1 TO ADOLESCENTE
           ELSE
              MOVE "CRIANCA" TO REG-SAIDA-DESCR
              DISPLAY 'NOME: ' REG-SAIDA-NOME
              DISPLAY 'IDADE: ' REG-SAIDA-IDADE
              DISPLAY 'DESCRICAO: ' REG-SAIDA-DESCR
              DISPLAY ' '
              ADD 1 TO CRIANCA
           END-IF
           END-IF
           END-IF
           END-IF
           .
       3000-DISPLAY.
           DISPLAY 'IDOSOS........: ' IDOSO
           DISPLAY 'ADULTOS.......: ' ADULTO
           DISPLAY 'ADULTOS JOVENS: ' ADULTO-JOVEM
           DISPLAY 'ADOLESCENTES..: ' ADOLESCENTE
           DISPLAY 'CRIANCAS......: ' CRIANCA
           DISPLAY 'GERAL.........: ' GERAL
           .

GUI1504
 
Posts: 28
Joined: Fri Sep 03, 2010 10:40 pm
Location: Campinas, SP - Brazil
Has thanked: 0 time
Been thanked: 0 time
Top

Re: Sysout - problem

Postby NicC » Wed Sep 29, 2010 11:39 pm

Is this the same problem as your other post, just re-worded? The answers are the same.

Provide the JESMSGLG
Provide the JESJCL
Provide the JESYSMSG
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 3025
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisies (almost)
Has thanked: 4 times
Been thanked: 136 times
Top

Re: Sysout - problem

Postby NicC » Thu Sep 30, 2010 12:01 am

Suggest you look at the JCL for the step that executes your program. This step is named GO and is at the end of the procedure. Then look at the SYSOUT statement in that step.
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 3025
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisies (almost)
Has thanked: 4 times
Been thanked: 136 times
Top

Re: Sysout - problem

Postby dick scherrer » Thu Sep 30, 2010 1:33 am

Hello,

Said slightly differently - as long as you submit incorrect jcl, you will get incorrect results. . .

Why do you believe it is ok to sometimes specify the "Stepnam.DDname" and other times only the DDname. . .

This is a jcl issue, not code as far as i can determine.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times
Top

Re: Sysout - problem

Postby GUI1504 » Thu Sep 30, 2010 8:42 pm

Hello buddies, i'm sorry, i'm new at COBOL. I've been solved this question, the SYSOUT doesn't appears because the display don't execute, it's problem with at end, now it's solved, thanks
GUI1504
 
Posts: 28
Joined: Fri Sep 03, 2010 10:40 pm
Location: Campinas, SP - Brazil
Has thanked: 0 time
Been thanked: 0 time
Top

Re: Sysout - problem

Postby dick scherrer » Fri Oct 01, 2010 12:24 am

Hello,

Good to hear it is working.

Part of the situation is that cobol is just now being learned (we all had to learn once upon a time :) ).

Another issue is the lack of understanding of how jcl works. If you continue to use inconsistent/incorrect jcl, there will be lots more problems that cannot be fixed in the code. . .
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times
Top
Post a reply

Return to Other IBM Tools

 


  • Related topics
    Replies
    Views
    Last post
Forum Rules|FAQ|Subscriptions|Bookmarks