<\/p>\n\n\n\n
Macro\n&LABEL ADABDX &TYPE=EQ\n.*\n.* Software AG \u00ae Macro with enhancements *\n.* ********************************************************************\n.* CHANGE LOG ID DATE\n.* ********************************************************************\n.* TYPE= ADABDX TYPE e.g. V8: FB, RB, SB, VB, IB, MB,.. NXB 20230616\n.*\n.* ********************************************************************\n.* ADABDX\n.*\n AIF ('&TYPE' EQ 'EQ').EQU\n AIF ('&TYPE' EQ 'FB').DSECT\n AIF ('&TYPE' EQ 'RB').DSECT\n AIF ('&TYPE' EQ 'MB').DSECT\n AIF ('&TYPE' EQ 'SB').DSECT\n AIF ('&TYPE' EQ 'VB').DSECT\n AIF ('&TYPE' EQ 'IB').DSECT\n AIF ('&TYPE' EQ 'PB').DSECT\n AIF ('&TYPE' EQ 'UB').DSECT\n AIF ('&TYPE' EQ 'INLINE').INLINE\n MNOTE 8,'*** ADABDX: Bad TYPE parameter ***'\n AGO .END\n.*\n.EQU ANOP\n*\n* ADABAS Equates\n*\nABDXVERE Equ C'G' Type is ABDX\nABDXVERC Equ C'2' Current version number is 2\nABDXVER2 Equ C'2' Initial release - version 2\nABDXVCUR Equ 256*ABDXVERE+ABDXVERC 2-byte current version\nABDXV2 Equ 256*ABDXVERE+ABDXVER2 Initial release - version 2\nABDXQFB Equ C'F' Format Buffer\nABDXQRB Equ C'R' Record Buffer\nABDXQMB Equ C'M' Multifetch Buffer\nABDXQSB Equ C'S' Search Buffer\nABDXQVB Equ C'V' Value Buffer\nABDXQIB Equ C'I' ISN Buffer\nABDXQPB Equ C'P' Performance Buffer\nABDXQUI Equ C'U' User Info Buffer\nABDXQSTD Equ C' ' At end of ABDX (standard)\nABDXQIND Equ C'I' Indirectly addressed\nABDXQDSP Equ C'D' ALET-qualified (data or address space)\n AGO .END\n*\n*\n.DSECT ANOP\n*\n* ADABAS Buffer Descriptor DSECT\n*\n&TYPE.BDX DSECT , Adabas Buffer Descriptor\n&TYPE.DX DS 0D\n&TYPE.DXLEN DS H +00 Fixed length of ABDX structure (X'30')\n&TYPE.DXVER DS 0CL2 +02 Structure block type and version\n&TYPE.DXVERT DS C ABDX type identifier\n&TYPE.DXVERN DS C ABDX version number\n&TYPE.DXID DS C +04 Buffer ID\n&TYPE.DXRSV1 DS B +05 Reserved for future use, must be X'00'\n&TYPE.DXLOC DS C +06 Buffer location flag\n&TYPE.DXRSV2 DS X +07 Reserved for future use, must be X'00'\n&TYPE.DXRSV3 DS F +08 Reserved for future use, must be X'00'\n&TYPE.DXALET DS F +0C ALET for buffer (ABDXLOC=C'D')\n&TYPE.DXSIZE DS D +10 Buffer size (allocated length)\n&TYPE.DXSEND DS D +18 Length of data to send to server\n&TYPE.DXRECV DS D +20 Length of data received from server\n&TYPE.DXADRG DS 0D,XL4 +28 64-bit address of indirectly addressed\n* buffer in primary address space or CSA\n* (ABDXLOC=C'I') or address space\n* (ABDXLOC=C'D')\n&TYPE.DXADR DS A +2C 31-bit address of indirectly addressed\n* buffer in primary address space or CSA\n* (ABDXLOC=C'I') or dataspace\/address\n* space (ABDXLOC=C'D')\n&TYPE.DXQLL Equ *-&TYPE.BDX 30 ADABDX structure length\n&TYPE.DXDATA Equ * +30 Actual buffer (ABDXLOC=C' ')\n AGO .END\n.*\n.* Inline expansion\n.*\n.INLINE ANOP\n&LABEL DS 0D Initialized ABDX structure\n DC XL(ABDXQLL)'00'\n ORG &LABEL\n DC Y(ABDXQLL) +00 ABDX Length (= ABDXQLL)\n DC CL3'G2 '\n DC X'00' Buffer usage IN\/OUT\n DC C' ' Buffer location flag\n DC X'00' Reserved1\n DC F'0' Reserved2\n DC XL4'00' Token\n DC D'0' Size\n DC D'0' Send size\n DC D'0' Receive size\n DC D'0' Adr Grande\n.*\n.*\n.END ANOP\n Mend\n\u001a<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"","protected":false},"author":2,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"footnotes":""},"class_list":["post-178","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/www-c.covariant-systems.com\/index.php?rest_route=\/wp\/v2\/pages\/178","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www-c.covariant-systems.com\/index.php?rest_route=\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/www-c.covariant-systems.com\/index.php?rest_route=\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/www-c.covariant-systems.com\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www-c.covariant-systems.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=178"}],"version-history":[{"count":3,"href":"https:\/\/www-c.covariant-systems.com\/index.php?rest_route=\/wp\/v2\/pages\/178\/revisions"}],"predecessor-version":[{"id":187,"href":"https:\/\/www-c.covariant-systems.com\/index.php?rest_route=\/wp\/v2\/pages\/178\/revisions\/187"}],"wp:attachment":[{"href":"https:\/\/www-c.covariant-systems.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=178"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}