SESSÃO NOSTALGIA — Será que alguém aqui já teve o prazer (?) de dar um split de CI e um split de CA num arquivão...

SESSÃO NOSTALGIA — Será que alguém aqui já teve o prazer (?) de dar um split de CI e um split de CA num arquivão VSAM? Se teve então conte pra nos a experiência!

Comentários

  1. Nossa! IDCAMS! Tinha esquecido o nome do pgm. Ah, velhos tempos, Marcelo Sávio. E no 3270, TSO rodando, éramos calorosamente recebidos pela imponente e sóbria mensagem:

    IKJEFT01 ENTER LOGON

    ... ou algo assim

    ResponderExcluir
  2. (pesquei essa info com o Google)

    The terminal monitor program (TMP) provides an interface between the user, command processors, and the TSO/E control program. It obtains commands, gives control to command processors, and monitors their execution. The TMP is attached as APF-authorized and executes in either supervisor state or problem program mode. The TMP entry points (IKJEFT01, IKJEFT1A, and IKJEFT1B) can only be invoked in one of the following ways:

    Using the EXEC statement in the logon procedure for foreground execution
    Using the EXEC statement in the input stream for background execution
    Using the EXEC statement in the JCL portion of a transaction program (TP) profile for a standard TP scheduled by the APPC/MVS transaction scheduler.
    Using the EXEC statement in the logon procedure for foreground execution to execute Session Manager, instructing Session Manager to invoke the TMP that TSO/E provides
    Using a program that passes control to the TMP

    IKJEFT1A is an alternate entry point for IKJEFT01.Even IKJEFT1B is another alternate entry point.Basically they are used to handle different types of errors.These 2 pgms provide additional return code and ABEND support.

    PGM=IKJEFT1A

    If a command or program being processed by IKJEFT1A ends with a system abend, IKJEFT1A causes the job step to terminate with a X'04C' system completion code. IKJEFT1A also returns the completion code from the command or program in register 15.

    If a command or program being processed by IKJEFT1A ends with a user abend, IKJEFT1A saves this completion code in register 15 and then terminates.

    If a command, program or REXX exec being processed by IKJEFT1A returns a non-zero return code to IKJEFT1A, IKJEFT1A saves this return code in register 15 and then terminates. Non-zero return codes to IKJEFT1A from CLISTs will not affect the contents of register 15 and the TMP will continue processing.

    For a non-zero return code or an abend from a command or program that was not given control directly by IKJEFT1A, no return code is saved in register 15 and IKJEFT1A does not terminate.


    PGM=IKJEFT1B


    If a command or program being processed by IKJEFT1B ends with a system or user abend, IKJEFT1B causes the job step to terminate with a X'04C' system completion code. IKJEFT1B also returns the completion code from the command or program in register 15.

    If a command, program or REXX exec being processed by IKJEFT1B returns a non-zero return code to IKJEFT1B, IKJEFT1B saves this return code in register 15 and then terminates. Non-zero return codes to IKJEFT1B from CLISTs will not affect the contents of register 15 and the TMP will continue processing.

    For a non-zero return code or abend completion code from a program or command that was not given control by IKJEFT1B, no return code is saved in register 15 and IKJEFT1B does not terminate.

    ResponderExcluir

Postar um comentário

Postagens mais visitadas deste blog

FINALMENTE!

Veja neste minivídeo que entrega cuidadosa! Este verdadeiro ANIMAL da FedEx joga por cima da...