PRINT NOGEN
ASLDCBS START 0
ASLDCBS AMODE 31
ASLDCBS RMODE 24
ASLDCBS TITLE 'ASL Standard DCBs - Copyright Abbydale Systems LLC.'
*---------------------------------------------------------------------*
* ASLDCBS *
*---------------------------------------------------------------------*
* *
* Description : Define the model DCBS for ASL programs. *
* *
* Created on : 7 October 2002 *
* Created by : KEVIN FERGUSON *
* : Userid MIT001 *
* : Using ABBYDALE.DEVL.SOURCE(ASLDCBS) *
* *
* Called by : Lots of programs via LOAD *
* *
* Calls : Nothing *
* *
* Change Activity : *
* *
*---------------------------------------------------------------------*
* ©Copyright of Abbydale Systems LLC. *
*---------------------------------------------------------------------*
* Standard DCB Module. *
*---------------------------------------------------------------------*
DC A(STDSPR) +00 Vector to standard SYSPRINT DCB.
DC A(STDSIN) +04 Vector to standard SYSIN DCB.
DC A(STDINP) +08 Vector to INPUT DCB.
DC A(DIRDCB) +12 Vector to DIRIN DCB.
DC A(SNAPDD) +16 Vector to SNAP DCB.
DC A(ASLPRT) +20 Vector to ASLPRINT DCB.
DC A(CORREL) +24 Vector to CORRELID DCB.
DC A(LONGMS) +28 Vector to LONGMSG DCB.
DC A(INTRDR) +32 Vector to INTRDR DCB.
DC A(0) +36 End of Vector table.
*---------------------------------------------------------------------*
* SYSPRINT DCB. *
*---------------------------------------------------------------------*
STDSPR DCB DDNAME=SYSPRINT, Standard SYSPRINT DD. C
DCBE=STDSPX, Standard SYSPRINT DCB extension. C
LRECL=133, 132 Char lines + 1 byte CC. C
DSORG=PS, Physical sequential organization. C
RECFM=FBA, Fixed, blocked ANSI control chars. C
MACRF=(PM) Put macro, move mode.
*---------------------------------------------------------------------*
* SYSPRINT DCB Extension *
*---------------------------------------------------------------------*
STDSPX DCBE RMODE31=BUFF 31-Bit Buffer addressing.
*---------------------------------------------------------------------*
* SYSIN DCB. *
*---------------------------------------------------------------------*
STDSIN DCB DDNAME=SYSIN, Standard SYSIN DD. C
DCBE=STDSIX, Standard SYSIN DCB extension. C
LRECL=80, 80 Byte input cards. C
DSORG=PS, Physical sequential organization. C
RECFM=FB, Fixed, blocked. C
MACRF=(GL) Get macro, locate mode.
*---------------------------------------------------------------------*
* SYSIN DCB Extension. *
*---------------------------------------------------------------------*
STDSIX DCBE EODAD=0, 31-Bit End of Data address. C
RMODE31=BUFF 31-Bit Buffer addressing.
*---------------------------------------------------------------------*
* INPUT DCB. *
*---------------------------------------------------------------------*
STDINP DCB DDNAME=INPUT, Standard INPUT DD. C
DCBE=STDINX, Standard SYSIN DCB extension. C
LRECL=80, 80 Byte input cards. C
DSORG=PS, Physical sequential organization. C
RECFM=FB, Fixed, blocked. C
MACRF=(GL) Put Move
*---------------------------------------------------------------------*
* INPUT DCB Extension *
*---------------------------------------------------------------------*
STDINX DCBE RMODE31=BUFF 31-Bit Buffer addressing.
*---------------------------------------------------------------------*
* DIRIN DCB. *
*---------------------------------------------------------------------*
DIRDCB DCB DDNAME=DIRIN, Standard DIRIN DD. C
DCBE=DIRSIX, Standard DIRIN DCB extension. C
LRECL=256, 256 Byte directory block C
BLKSIZE=256, 256 Byte directory block blocksize C
DSORG=PS, Physical sequential organization. C
RECFM=F, Fixed, C
MACRF=(GL) Get macro, locate mode.
*---------------------------------------------------------------------*
* DIRIN DCB Extension. *
*---------------------------------------------------------------------*
DIRSIX DCBE EODAD=0, 31-Bit End of Data address. C
RMODE31=BUFF 31-Bit Buffer addressing.
*---------------------------------------------------------------------*
* SNAP DCB. *
*---------------------------------------------------------------------*
SNAPDD DCB DDNAME=SNAP, Standard SNAP DD. C
DCBE=SNAPNX, Standard SYSIN DCB extension. C
LRECL=125, 125 Byte Output cards C
BLKSIZE=882, Blocksize C
DSORG=PS, Physical sequential organization. C
RECFM=VBA, Variable Blocked with control C
MACRF=(W) Write
*---------------------------------------------------------------------*
* SNAP DCB Extension *
*---------------------------------------------------------------------*
SNAPNX DCBE RMODE31=BUFF 31-Bit Buffer addressing.
*---------------------------------------------------------------------*
* ASLPRINT DCB. *
*---------------------------------------------------------------------*
ASLPRT DCB DDNAME=ASLPRINT, Standard ASLPRINT DD. C
DCBE=ASLSPX, Standard ASLPRINT DCB extension. C
LRECL=133, 132 Char lines + 1 byte CC. C
DSORG=PS, Physical sequential organization. C
RECFM=FBA, Fixed, blocked ANSI control chars. C
MACRF=(PM) Put macro, move mode.
*---------------------------------------------------------------------*
* ASLPRINT DCB Extension *
*---------------------------------------------------------------------*
ASLSPX DCBE RMODE31=BUFF 31-Bit Buffer addressing.
*---------------------------------------------------------------------*
* CORRELID DCB. *
*---------------------------------------------------------------------*
CORREL DCB DDNAME=CORRELID, Standard CORRELID DD. C
DCBE=CORLIX, Standard SYSIN DCB extension. C
LRECL=80, 80 Byte input cards. C
DSORG=PS, Physical sequential organization. C
RECFM=FB, Fixed, blocked. C
MACRF=(GL) Get macro, locate mode.
*---------------------------------------------------------------------*
* CORRELID DCB Extension *
*---------------------------------------------------------------------*
CORLIX DCBE RMODE31=BUFF 31-Bit Buffer addressing.
*---------------------------------------------------------------------*
* LONGMSG DCB.. *
*---------------------------------------------------------------------*
LONGMS DCB DDNAME=LONGMSG, Standard LONGMSG DD. C
DCBE=LONGMX, Standard SYSIN DCB extension. C
LRECL=80, 80 Byte input cards. C
DSORG=PS, Physical sequential organization. C
RECFM=FB, Fixed, blocked. C
MACRF=(GL) Get macro, locate mode.
*---------------------------------------------------------------------*
* LONGMSG DCB Extension *
*---------------------------------------------------------------------*
LONGMX DCBE RMODE31=BUFF 31-Bit Buffer addressing.
*---------------------------------------------------------------------*
* INTRDR DCB. *
*---------------------------------------------------------------------*
INTRDR DCB DDNAME=INTRDR, Standard INTRDR DD. C
DCBE=INTRDX, Standard SYSIN DCB extension. C
LRECL=80, 80 Byte input cards. C
DSORG=PS, Physical sequential organization. C
RECFM=FB, Fixed, blocked. C
MACRF=(PM) Put Move
*---------------------------------------------------------------------*
* INTRDR DCB Extension *
*---------------------------------------------------------------------*
INTRDX DCBE RMODE31=BUFF 31-Bit Buffer addressing.
END ASLDCBS End of Assembly.
PUNCH ' MODE AMODE(31)' Binder AMODE statement.
PUNCH ' MODE RMODE(24)' Binder RMODE statement.
PUNCH ' ENTRY ASLDCBS' Binder Module Entry Point.
PUNCH ' NAME ASLDCBS(R)' Binder Module Name.
END , End of Binder Input.
|