Quellcode-Bibliothek ZXPRINT.REXX Sprache: 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

quality20%

¤ 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.0.14Bemerkung: (vorverarbeitet) ¤

*Bot Zugriff

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.