Memorex LOCK - VERSION 2-24 Technické informace Strana 290

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 568
  • Tabulka s obsahem
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 289
Multi-Dataset Processing
7-22 User Reference
Connectivity Systems, Inc.—Copyright © 2006
Use Pursuant to Company Instructions
// JOB XYZ
* -----------------------------------------------------+
* CATALOG A PRIME DSN AND THREE SUB DSN'S +
* -----------------------------------------------------+
*
// EXEC TSIDMNT
CAT 'PRIME' CYC=2
CAT 'SUB1' NSU='PRIME' CYC=2
CAT 'SUB2' NSU='PRIME' CYC=2
/*
*
*
------------------------------------------------------------
+
* CREATE A PRIME AND 2 SUB DSN'S USING BIM-EPIC DD FACILITY.
+
* PROGX PERFORMS 3 OPENS FOR DTFNAME TAPEOUT.
+
*
------------------------------------------------------------
+
*
* //TAPEOUT DD DSN='PRIME(+0)',
* // OPTION=(SYS010),
* // UNIT=TAPE,
* // FREE=END,
* // DISP=(NEW,KEEP),
* // VOL=(,RETAIN)
* //TAPEOUT DD DSN='SUB1(+0)',
* // OPTION=(SYS010),
* // UNIT=TAPE,
* // FREE=END,
* // DISP=(NEW,KEEP),
* // VOL=(,RETAIN)
* //TAPEOUT DD DSN='SUB2(+0)',
* // OPTION=(SYS010),
* // UNIT=TAPE,
* // DISP=(NEW,KEEP),
* // VOL=(PRIVATE)
// EXEC PROGX
/*
*
----------------------------------------------------------+
* READ A PRIME AND 2 SUB DSN'S USING BIM-EPIC DD FACILITY. +
* PROGY PERFORMS 3 OPENS FOR DTFNAME TAPEIN. +
*
----------------------------------------------------------+
* //TAPEIN DD DSN='PRIME(0)',
* // OPTION=(SYS010),
* // UNIT=TAPE,
* // FREE=END,
* // DISP=(OLD,PASS),
* // VOL=(,RETAIN)
* //TAPEIN DD DSN='SUB1(0)',
* // OPTION=(SYS010),
* // UNIT=TAPE,
* // FREE=END,
* // DISP=(OLD,PASS),
* // VOL=(,RETAIN)
* //TAPEIN DD DSN='SUB2(0)',
* // OPTION=(SYS010),
* // UNIT=TAPE,
* // DISP=(OLD,KEEP)
// EXEC PROGY
/*
/&
Zobrazit stránku 289
1 2 ... 285 286 287 288 289 290 291 292 293 294 295 ... 567 568

Komentáře k této Příručce

Žádné komentáře