Table of Contents

IKQEXLST Source

References

Source Listing

IKQEXLST.MACRO.txt 
  1.          MACRO                                                          00001000
  2.  IKQEXLST &DSECT=YES                                                    00002000
  3.          PUSH  PRINT                                                    00002100
  4.          AIF   ('&SYSPARM' NE 'SUP').ACC01                              00002200
  5.          PRINT OFF,NOGEN                                                00002300
  6. .ACC01   ANOP                                                           00002400
  7. * VSAM - IKQEXLST - 5745-SC-VSM - REL. 31.0  INTERNAL VERSION 2.26      00003000
  8.          AIF   ('&DSECT' EQ 'NO').EXLNODS                               00004000
  9. IKQEXLST DSECT                          EXLST EXIT LIST BLOCK           00005000
  10.          AGO   .EXLDSCT                                                 00006000
  11. .EXLNODS ANOP                                                           00007000
  12. IKQEXLST DS    0F                       EXLST EXIT LIST BLOCK           00008000
  13. .EXLDSCT ANOP                                                           00009000
  14. *                       FORMAT OF EXLST ENTRY                         * 00010000
  15. EXENFL   DS    XL1                      FLAGBYTE                        00011000
  16. EXENADDR DS    AL4                      EXIT ADDRESS                    00012000
  17. *                                                                     * 00013000
  18.          ORG  *-5                       REPOSITION ON BEGIN LIST        00014000
  19. EXLSTST  EQU   *                        START EXLST 20.04.74            00015000
  20. EXLID    DS    XL1                      EXLST IDENTIFIER '81'           00016000
  21. EXLIDD   EQU   X'81'                    EXLST ID EQUATE                 00017000
  22. EXLSTYP  DS    XL1                      SUBTYPE FIELD                   00018000
  23. EXLLEN   DS    H                        LENGTH OF LIST                  00019000
  24. EXLACT   DS    XL1                      ACTIVE TEST & SET BYTE          00020000
  25. EXLEOD   DS    0CL5                     EODAD ENTRY                     00021000
  26. EXLEODF  DS    XL1                      ENTRY DESCRIPTION BITS          00022000
  27. EXLEODP  DS    AL4                      EODAD POINTER                   00023000
  28. EXLSYN   DS    0CL5                     SYNAD ENTRY                     00024000
  29. EXLSYNF  DS    XL1                      ENTRY DESCRIPTION BITS          00025000
  30. EXLSYNP  DS    AL4                      SYNAD POINTER                   00026000
  31. EXLLER   DS    0CL5                     LERAD ENTRY                     00027000
  32. EXLLERF  DS    XL1                      ENTRY DESCRIPTION BITS          00028000
  33. EXLLERP  DS    AL4                      LERAD POINTER                   00029000
  34. EXLIOEX  DS    0CL5                     EXCPAD ENTRY                    00030000
  35. EXLIOEXF DS    XL1                      ENTRY DESCRIPTION BITS          00031000
  36. EXLIOEXP DS    AL4                      EXCPAD POINTER                  00032000
  37. EXLJRN   DS    0CL5                     JRNAD ENTRY                     00033000
  38. EXLJRNF  DS    XL1                      ENTRY DESCRIPTION BITS          00034000
  39. EXLJRNP  DS    AL4                      JRNAD POINTER                   00035000
  40. *              BITS USED IN INDIVIDUAL EXIT FLAGS                     * 00036000
  41. EXENEXB  EQU   X'80'                    ENTRY PRESENT BIT               00037000
  42. EXENACTB EQU   X'40'                    ENTRY ACTIVE BIT                00038000
  43. EXENLEB  EQU   X'20'                    LOAD BIT                        00039000
  44. *              MIN LENGTH EXLST FOR SPECIFIED ENTRY                   * 00040000
  45. EXLEODL  EQU   10                       MIN LENGTH IF EODAD             00041000
  46. EXLSYNL  EQU   15                       MIN LENGTH IF SYNAD             00042000
  47. EXLLERL  EQU   20                       MIN LENGTH IF LERAD             00043000
  48. EXLIOEXL EQU   25                       MIN LENGTH IF EXCPAD            00044000
  49. EXLJRNL  EQU   30                       MIN LENGTH IF JRNAD             00045000
  50. *                   MIN AND MAX SIZE OF EXLST                         * 00046000
  51. EXLMINL  EQU   10                       MIN LENGTH EXIST LIST           00047000
  52. EXLMAXL  EQU   30                       MAX LENGTH EXIST LIST           00048000
  53. *                                                                     * 00049000
  54. EXLSTEND DS    0F                       END OF EXLST                    00050000
  55. *                            END OF VSAM EXLST                        * 00051000
  56.          POP   PRINT                                                    00051100
  57.          MEND                                                           00052000