%DCL DSORGIS FIXED;      /* ISAM                                    */ 00050000
 %DSORGIS=0;                                                            00100000
 %DCL DSORGDA FIXED;      /* BDAM                                    */ 00150000
 %DSORGDA=0;                                                            00200000
 %DCL DSORGBX FIXED;      /* BTAM LINE GROUP                         */ 00250000
 %DSORGBX=0;                                                            00300000
 %DCL DSORGCX FIXED;      /* BTAM AND QTAM LINE GROUPS               */ 00350000
 %DSORGCX=0;                                                            00400000
 %DCL DSORGQX FIXED;      /* QTAM LINE GROUP                         */ 00450000
 %DSORGQX=0;                                                            00500000
 %DCL DSORGMQ FIXED;      /* QTAM MESSAGE QUEUE                      */ 00650000
 %DSORGMQ=0;                                                            00700000
 %DCL DSORGQS FIXED;      /* QSAM                                    */ 00750000
 %DSORGQS=0;                                                            00800000
 %DCL DSORGPS FIXED;      /* QSAM AND BSAM-BPAM                      */ 00850000
 %DSORGPS=0;                                                            00900000
 %DCL DSORGBS FIXED;      /* BSAM-BPAM                               */ 00950000
 %DSORGBS=0;                                                            01000000
 %DCL DSORGPO FIXED;      /* BSAM-BPAM                               */ 01050000
 %DSORGPO=0;                                                            01100000
 %DCL DSORGXA FIXED;      /* EXCP WITH APPENDAGES                    */ 01150000
 %DSORGXA=0;                                                            01200000
 %DCL DSORGXE FIXED;      /* EXCP WITH EXTENSION                     */ 01250000
 %DSORGXE=0;                                                            01300000
 %DCL DSORGLR FIXED;      /* DCBLRECL FIELD ONLY                     */ 01350000
 %DSORGLR=0;                                                            01400000
 %DCL DSORGGS FIXED;      /* GRAPHICS WITH APPENDAGES                */ 01450000
 %DSORGGS=0;                                                            01500000
 %DCL DSORGTX FIXED;      /* TCAM LINE GROUP                         */ 01550000
 %DSORGTX=0;                                                            01600000
 %DCL DSORGTQ FIXED;      /* TCAM MESSAGE QUEUE                      */ 01650000
 %DSORGTQ=0;                                                            01700000
 %DCL DSORGTR FIXED;      /* TCAM 3705                         S21024*/ 01710000
 %DSORGTR=0;              /*                                   S21024*/ 01730000
 %DCL DEVDDA  FIXED;      /* DIRECT ACCESS                           */ 01750000
 %DEVDDA=0;                                                             01800000
 %DCL DEVDTA  FIXED;      /* MAGNETIC TAPE                           */ 01850000
 %DEVDTA=0;                                                             01900000
 %DCL DEVDPT  FIXED;      /* PAPER TAPE                              */ 01950000
 %DEVDPT=0;                                                             02000000
 %DCL DEVDPR  FIXED;      /* PRINTER                                 */ 02050000
 %DEVDPR=0;                                                             02100000
 %DCL DEVDRD  FIXED;      /* CARD READER                             */ 02150000
 %DEVDRD=0;                                                             02200000
 %DCL DEVDPC  FIXED;      /* CARD PUNCH                              */ 02250000
 %DEVDPC=0;                                                             02300000
 %DCL DEVDBS  FIXED;      /* BINARY SYNCHRONOUS COMMUNICATION        */ 02350000
 %DEVDBS=0;                                                             02400000
 %DCL DEVDWT  FIXED;      /* WORLD TRADE TELEGRAPH                   */ 02450000
 %DEVDWT=0;                                                             02500000
 %DCL DEVDMR  FIXED;      /* MAGNETIC CARD READER                    */ 02550000
 %DEVDMR=0;                                                             02600000
 %DCL DEVDOR  FIXED;      /* OPTICAL READER                          */ 02650000
 %DEVDOR=0;                                                             02700000