Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: ZXPRINT.REXX Sprache: REXX

Original von: REXX^©

  ISREDIT MACRO NOPROCESS
  SET DEST = N67R8312
  FREE F(TODZW1 TODZW2)
  ALLOC F(TODZW1) NEW DELETE UNIT(SYSVIO) DATACLAS(FB133PS)
  ALLOC F(TODZW2) NEW DELETE UNIT(SYSVIO) DATACLAS(FB133PS)

  CONTROL ASIS NOMSG NOFLUSH
  ISPEXEC CONTROL ERRORS RETURN
  ISREDIT (DSN)     = DATASET
  ISREDIT (MBR)     = MEMBER
  ISREDIT (LRECL)   = LRECL
  ISREDIT PROCESS RANGE C
  SET     &RC01     = &LASTCC
  ISREDIT (FIRST)   = LINENUM  .ZFRANGE
  ISREDIT (LAST)    = LINENUM  .ZLRANGE

  IF  &RC01 = 0  OR &RC01 = 8  OR  &RC01 =  12  THEN +
      DO
      OPENFILE TODZW1 OUTPUT
      SET  &COUNTER  = &FIRST
      DO WHILE  &COUNTER  LE &LAST
         ISREDIT  (TODZW1)  = LINE &COUNTER
         PUTFILE TODZW1
         SET  &COUNTER  =  &COUNTER + 1
      END
      CLOSFILE TODZW1
      END
  CALL 'ZPE.T2713.LOAD(TODRCK)' '&DEST '
  FREE F(TODZW1 TODZW2)
  EXIT

¤ Dauer der Verarbeitung: 0.15 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.