Extract File Layout › Extract File Layout
Extract File Layout
Field
offset Field
in hex name
XAPXV PREFIX=XAPX,TYPE=CSECT,CODE=U
000000 XAPXX CSECT
*
* VSAM HEADER PORTION
*
*
000000 XAPXVSMH1 DS 0D
000000 XAPXVSMRD DC A(XAPXVSMHL+XAPXXLEN+0)
RDW
000005 XAPXVSMK0 DC CL1'U' SIGNIFICANT TYPE
000006 XAPXVSMK1 DC CL8 ' 1ST PART OF KEY
00000E XAPXVSMK2 DC CL8' ' 2ND PART OF KEY
000016 XAPXVSMLU DC CL8' ' USERID OF LAST UPDATER
00001E XAPXVSMDU DC CL8' ' DATE OF LAST UPDATE
000026 XAPXVSMTU DC CL8' ' TIME OF LAST UPDATE
00002E DS XL3
000031 XAPXVSMNR DC A(0) NEXT RECORD POINTER
000035 XAPXVSMUT DC AL1(XAPXVSMAD)
UPDATE INDICATOR FOR THE RECORD
XAPXVSMUP EQU X'80 RECORD HAS BEEN UPDATED
XAPXVSMAP EQU X'40 RECORD HAS BEEN ADDED
XAPXVSMDE EQU X'20 RECORD HAS BEEN DELETED
* IF THIS FLAG IS ON AT THE TIME THE RECORD IS BEING
* READ, THE PRIMARY USE OF THIS SEGMENT IS NOT ACTIVE.
XAPXVSMS1 EQU X'04 SEGMENT IS NOT USED FOR PRIMARY USE
* IF THIS FLAG IS ON AT THE TIME THE RECORD IS BEING
* WRITTEN, THE SEGMENT WILL NOT BE WRITTEN TO THE FILE.
XAPXVSMD1 EQU X'02 SEGMENT IS UNUSED
000036 XAPXVSMV1 DC AL1(0) THE VERSION ID OF THE FIRST SEGMENT
000037 XAPXVSM#1 DC AL2(4+XAPXXLEN)
LENGTH OF FIRST SEGMENT IF MULTI-SEGMENT
000038 XAPXVSM$1 DS OF DATA OF FIRST SEGMENT
* XAPXVSMH1
* LENGTH OF HEADER
*
000038 XAPXXID DC CL4'APX' EYECATCHER
00003C XAPXMEN# DC A(0) ORDER OF APPL IN APPL MENU
000040 XAPXNPT DC CL8' ' NPT NAME
000048 XAPXACI DC CL8' ' ACI NAME
000050 XAPX0FCB DC F'0'
000054 XAPXFLAG DC XL1'00' FLAGS
XAPXVSYN EQU X'80' ON SAYS WE'RE PART OF A VSAM RECORD
XAPXNPRF EQU X'40' NPRF BIT AS IN TPX
XAPXDEL EQU X'20' *DELETED* FLAG AS IN TPX
000055 XAPXDSP DC XL1'00' DISPLAY FLAG (NOT USED)
000056 XAPXDES DC XL32'00' DESCRIPTION (NOT USED)
000066 XAPXFCBA DC XL1'00'
XAPXFP01 EQU X'80'
USER MAY CHANGE ACI PARM &&P1
XAPXFP02 EQU X'40'
USER MAY CHANGE ACI PARM &&P2
XAPXFP03 EQU X'20'
USER MAY CHANGE ACI PARM &&P3
XAPXFP04 EQU X'10'
USER MAY CHANGE ACI PARM &&P4
XAPXFP05 EQU X'08'
USER MAY CHANGE ACI PARM &&P5
XAPXFP06 EQU X'04'
USER MAY CHANGE ACI PARM &&P6
XAPXFP07 EQU X'02'
USER MAY CHANGE ACI PARM &&P7
XAPXFP08 EQU X'01'
USER MAY CHANGE ACI PARM &&P8
000067 XAPXFCBB DC XL1'00'
XAPXFP09 EQU X'80'
USER MAY CHANGE ACI PARM &&P9
XAPXFP10 EQU X'40'
USER MAY CHANGE ACI PARM &&P10
XAPXFP11 EQU X'20'
USER MAY CHANGE ACI PARM &&P11
XAPXFP12 EQU X'10'
USER MAY CHANGE ACI PARM &&P12
XAPXFP13 EQU X'08'
USER MAY CHANGE ACI PARM &&P13
XAPXFP14 EQU X'04'
USER MAY CHANGE ACI PARM &&P14
XAPXFP15 EQU X'02'
USER MAY CHANGE ACI PARM &&P15
XAPXFP16 EQU X'01'
USER MAY CHANGE ACI PARM &&P16
000068 XAPXFCBC DC XL1'00'
XAPXFACI EQU X'80'
USER MAY CHANGE LOGON ACI SCRIPT NAME
XAPXFP10 EQU X'40'
USER MAY CHANGE MENU ORDER
XAPXFP11 EQU X'20'
USER MAY CHANGE NPT NAME
XAPXFP12 EQU X'10'
USER MAY CHANGE DISPLAYABLE FLAG
XAPXFP13 EQU X'08'
USER MAY CHANGE DESCRIPTION
000069 XAPXFCBD DC XL1'00' NOT USED AT PRESENT
00006A XAPXFCBE DC XL1'00' NOT USED AT PRESENT
XAPXFCB# EQU *-XAPXFCBA
00006B DC XL1'00' RESERVED
00006C DC XL16'00' RESERVED
00007C XAPXL01 DC AL1(0)
00007D XAPXL02 DC AL1(0)
00007E XAPXL03 DC AL1(0)
00007F XAPXL04 DC AL1(0)
000080 XAPXL05 DC AL1(0)
000081 XAPXL06 DC AL1(0)
000082 XAPXL07 DC AL1(0)
000083 XAPXL08 DC AL1(0)
000084 XAPXL09 DC AL1(0)
000085 XAPXL10 DC AL1(0)
000086 XAPXL11 DC AL1(0)
000087 XAPXL12 DC AL1(0)
000088 XAPXL13 DC AL1(0)
000089 XAPXL14 DC AL1(0)
00008A XAPXL15 DC AL1(0)
00008B XAPXL16 DC AL1(0)
00008C XAPXP01 DC AL64'00'
00008D XAPXP02 DC AL64'00'
00008E XAPXP03 DC AL64'00'
00008F XAPXP04 DC AL64'00'
000090 XAPXP05 DC AL64'00'
000091 XAPXP06 DC AL64'00'
000092 XAPXP07 DC AL64'00'
000093 XAPXP08 DC AL64'00'
000094 XAPXP09 DC AL64'00'
000095 XAPXP10 DC AL64'00'
000096 XAPXP11 DC AL64'00'
000097 XAPXP12 DC AL64'00'
000098 XAPXP13 DC AL64'00'
000099 XAPXP14 DC AL64'00'
00009A XAPXP15 DC AL64'00'
00009B XAPXP16 DC AL64'00'
ORG XAPXFLAG
DC AL1(XAPXNPRF)
000000 VINDEX DSECT
000000 VUSRRDW DS F'0' Length of VSAM record
000004 VUSRRTYP DS CL1 PROFILE/USER RECORD
000005 VUSRKNME DS CL8 USER-NAME & START OF KEY
00000D VUSR$BLK DS CL8 THE REST OF KEY IS BLANK
000015 VUSRLUPD DS CL8 USERID OF LAST UPDATER
00001D VUSRDUPD DS CL8 DATE OF LAST UPDATE
000025 VUSRTUPD DS CL8 TIME OF LAST UPDATE
00002D DS 3C UNUSE D
000030 VUSRNXTR DS A NO MEANING IN VSAM OR EXTRACT FILES
VUSRHDR# EQU *-VINDEX INFORMATION.
*
*First segment begins here.
*
000034 VUSRUPDT DS XL1 UPDATE IND. BYTE
VIDXUPDT EQU X'80' RECORD HAS BEEN UPDATED
VIDXADD EQU X'40' RECORD HAS BEEN ADDED
VIDXDEL EQU X'20' RECORD HAS BEEN DELETED
VIDXCOMN EQU X'04' NOT A CA‑TPX USER. THE CA‑TPX SEGMENT
* EXISTS ONLY TO CARRY COMMON INFORMATION.
* EQU X'01' RESERVED FOR VSAMPROF/MERGEPRG
000035 VUSRVER1 DC X'01' THE VERSION ID OF THE FIRST SEGMENT
* *00 FOR 2.0 AND 3.0
* *01 FOR 3.5 (HAS VIEW TABLE AT END)
000036 VUSRLEN1 DS H'0' LENGTH OF FIRST SEGMENT IF MULTI-SEGMENT
000038 DS 0F
VUSRHLEN EQU *-VINDEX LENGTH OF HEADER AREA
UINDX PREFIX=UIDX,DSECT=NO
VUSR DS 0F
000038 UIDXID DS CL4 CONSTANT 'UIDX' OR 'PROF'
00003C UIDXNEXT DS A NO MEANING IN VSAM OR EXTRACT FILES
000040 UIDXNAME DS CL8 NAME OF USER
000048 UIDXPRT DS CL8 DEFAULT PRINTER FOR SOFTCOPY
000050 DS CL16 NO MEANING IN VSAM OR EXTRACT FILES
000060 UIDXOWN DS CL8 OWNER SYSTEM
000068 UIDXPASS DS CL8 USER'S PASSWORD (CA‑TPX SECURITY ONLY)
000070 UIDXPAS1 DS CL8 NO MEANING IN VSAM OR EXTRACT FILES
000078 UIDXPAS2 DS CL8 NO MEANING IN VSAM OR EXTRACT FILES
000080 UIDXPAS3 DS CL8 NO MEANING IN VSAM OR EXTRACT FILES
000088 DS CL8 NO MEANING IN VSAM OR EXTRACT FILES
000090 UIDXACBN DS CL8 ACBNAME RESERVED FOR USER
000098 UIDXGRP DS CL8 GROUP NAME USER BELONGS TO
0000A0 UIDXWCHR DS X WINDOW COMMAND CHARACTER
0000A1 UIDXVLVL DS X CA‑TPX VIEW SECURITY LEVEL
0000A2 DS XL2 NO MEANING IN VSAM OR EXTRACT FILES
*
0000A4 UIDXUCB@ DS A NO MEANING IN VSAM OR EXTRACT FILES
0000A8 UIDXTERM DS A NO MEANING IN VSAM OR EXTRACT FILES
0000AC UIDXAPPL DS A NO MEANING IN VSAM OR EXTRACT FILES
*
0000B0 UIDXTOU1 DS F USER TIMEOUT VALUE #1
0000B4 UIDXTOU2 DS F USER TIMEOUT VALUE #2
*
0000B8 UIDXCMDP DS A NO MEANING IN VSAM OR EXTRACT FILES
0000BC UIDXOPTB DS A NO MEANING IN VSAM OR EXTRACT FILES
*
0000C0 UIDXSMAX DS F MAX SESSIONS FOR USER
0000C4 UIDXSCNT DS F COUNT OF ACTIVE SESSIONS
*
0000C8 UIDXMSGT DS F TIME USER LAST CHECKED MESSAGES
0000CC UIDXUSER DS F NO MEANING IN VSAM OR EXTRACT FILES
0000D0 UIDXSMCB DS A NO MEANING IN VSAM OR EXTRACT FILES
0000D4 UIDXPTR DS A NO MEANING IN VSAM OR EXTRACT FILES
*
0000D8 UIDXCTR DS H NO MEANING IN VSAM OR EXTRACT FILES
0000DA UIDXLANG DS H LANGUAGE CODE
0000DC UIDXPATM DS H COUNT OF ATTEMPTS AT ENTERING CORRECT PSWD
0000DE UIDXAINT DS H ATTN-ATTN INTER VAL
0000E0 UIDXLENG DS H SIGNIFICANT LENGTH FOR EXTENDED PROFILES
0000E2 DS XL2
0000E4 UIDXLNG2 DS H LANGUAGE AT KANJI TERMINAL
*
0000E6 UIDXVBRB DS C BACKGROUND VERTICAL BOARDER FOR WINDOWS
0000E7 UIDXHBRB DS C BACKGROUND HORIZONTAL BOARDER FOR WINDOWS
*
0000E8 UIDXCHAR DS CL3' ' ESCAPE CHARACTER STRING
*
0000EB UIDXPRSV DS X RESERVED BYTE FOR CMD/PRIVILEDGE LEVELS
0000EC UIDXOCLS DS X RESERVED BYTE FOR TPXOPER CMD AUTH CHECKING
0000ED UIDXUPDC DS X RESERVED BYTE FOR USER UPDATE CLASS
*
0000EE UIDXSTAT DS X STATUS OF THIS ENTRY
UIDXDYN EQU X'01' RESERVED FOR DYNAMIC ALLOCATION
UIDXDEL EQU X'02' DYNAMICALLY DELETED
UIDXACSS EQU X'04' ACCESS=SINGLE
UIDXNTRF EQU X'08' USER CAN'T TRANSFER SESSIONS.
UIDXATRF EQU X'10' USER CAN TRANSFER SESSIONS / INCMP. KILLED
UIDXTNA EQU X'40' ACCESS=PASS
UIDXMENU EQU X'20' USER RECONNECTS IN MENU
UIDXHTRF EQU X'80' USER CAN TRANSFER SESSIONS / INCMP. HELD
*
0000EF UIDXSCTY DS X SECURITY BY USER
0000F0 UIDXJKEY DS AL1 JUMP KEY AID
0000F1 UIDXESCK DS AL1 COMMAND KEY AID
0000F2 UIDXMKEY DS AL1 MENU KEY AID
0000F3 UIDXPKEY DS AL1 PRINT KEY AID
*
0000F4 UIDXOPT0 DS X
UIDXAMNU EQU X'80' USER IS CURRENTLY AT THEIR MENU
UIDXMAIL EQU X'40' GET MAIL FIRST OPTION
UIDXBRS1 EQU X'20' AUTOSCROLL - USED BY SCREEN AND EZWINDOWS
UIDXPROP EQU X'10' PROPAGATE 1ST ACB SELECTED FOR THIS USER
UIDXWBRK EQU X'08' WINDOW BREAKIN OPTION
UIDXUINF EQU X'04' INDICATES USER INFOR. BUILT IN MERGE PROCESS
UIDXDND1 EQU X'02' DO NOT DISTURB, SET BY USER
UIDXDND2 EQU X'01' RESERVED
*
0000F5 UIDXTOP1 DC AL1(0)
*
0000F6 UIDXTOP2 DC AL1(0)
*
0000F7 UIDXKOPT DS X TERM=K/F
UIDXKOK EQU X'01' TERM=K
UIDXKOF EQU X'03' TERM=F (IMPLIES K)
UIDXAFF EQU X'04' USER GOT HERE DUE TO AFFINITY
UIDXRELR EQU X'10' RELREQ ON
UIDXNREL EQU X'20' RELREQ OFF
UIDXMSGW EQU X'80' USER HAS MESSAGE WAITING
*
0000F8 UIDXTRAC DS X NO MEANING IN VSAM OR EXTRACT FILES
*
0000F9 UIDXOPT1 DS X USER SELECTABLE OPTIONS
UIDXOPTI EQU X'01' USER WANTS ONLY ACTIVE SESSIONS IN MENU
UIDXOPTV EQU X'02' USER WANTS TO OVERRIDE OPT=I ON SESSIONS
UIDXCADM EQU X'08' CLASSIFIED AS A CA‑TPX USER ADMINISTRATOR
UIDXCSYS EQU X'10' CLASSIFIED AS A CA‑TPX SYSTEM ADMINISTRATOR
UIDXCOPR EQU X'20' CLASSIFIED AS A TPXOPER ADMINISTRATOR
UIDXCMST EQU X'40' CLASSIFIED AS A CA‑TPX MASTER ADMINISTRATOR
UIDXSTIC EQU X'80' UADS BUILT THROUGH ADMINISTRATION
*
0000FA UIDXOPT2 DS X USER SELECTABLE OPTIONS
UIDXPPRP EQU X'01' PREVIOUSLY PROPAGATED ACB (SIGNON PROCESSING)
UIDXTIMO EQU X'02' USER HAS BEEN TIMED-OUT
UIDXPTO EQU X'04' SCREEN UPDATE PENDING FOR TIMED-OUT USER
UIDXSUSP EQU X'10' USER SHOULD BE SUSPENDED FROM SIGNON
UIDXTPXP EQU X'20' USING CA‑TPX SECURITY...NEED NEW PASSWORD
UIDXVSAM EQU X'40' RESERVED
UIDXRMOV EQU X'80' RESERVED
*
0000FB UIDXOPT3 DS X MISCELLANEOUS FLAGS
UIDXCNVP EQU X'80' DIALOG IN PROCESS FOR USER
*
*Next three flags must be same as CA‑TPX counterparts above
*
UIDXCMSX EQU X'40' CLASSIFIED AS A CA STX MASTER ADMINISTRATOR
UIDXCSYX EQU X'10' CLASSIFIED AS A CA STX SYSTEM ADMINISTRATOR
UIDXCADX EQU X'08' CLASSIFIED AS A CA STX USER ADMINISTRATOR
*
0000FC UIDXWMOD DS X'00' WINDOWS MODE KEY
0000FD UIDXVBRF DS C FOREGROUND VERTICAL BORDER FOR WINDOWS
0000FE UIDXHBRF DS C FOREGROUND HORIZONTAL BORDER FOR WINDOWS
0000FF UIDXWOPT DS X'00' WINDOW OPTIONS
UIDXWRKB EQU X'80' WINDOW TASK WILL RESTORE KEYBOARD
*
UIDXDNV EQU X'01' DO NOT VIEW THIS USER
000100 UIDXALGN DS 0D REQUIRED FOR ALIGNMENT
UIDXLEN EQU *-UIDXID LENGTH OF ONE ENTRY
000100 VUSRDACC DS CL8 DATE RECORD LAST ACCESSED
000108 VUSRPHN# DS CL12 USERS PHONE #
000114 VUSRLOC DS CL20 USERS LOCATION
000128 VUSRRNME DS CL25 USERS REAL NAME
000144 VUSROFCB DS F
000148 VUSRFCB1 DS XL1
000149 VUSRFCB2 DS XL1
00014A VUSRFCB3 DS XL1
00014B VUSRFCB4 DS XL1
00014C VUSRFCB5 DS XL1
00014D VUSRFCB6 DS XL1
00014E VUSRFCB7 DS XL1
00014F VUSRFCB8 DS XL1
* MAP OF VUSRFCB1:
VUPDSIGN EQU X'80' RESERVED
VUPDSADD EQU X'40' USER MAY ADD SESSIONS IN ADMIN
VUPDPKEY EQU X'20' PRINTER KEY
VUPDACB EQU X'10' ACB=
VUPDTOU2 EQU X'08' TIMEOUT INTERVAL #2
VUPDTOP2 EQU X'04' TIMEOUT OPTION #2
VUPDMAIL EQU X'02' GET MAIL FIRST
VUPDPRT2 EQU X'01' PRINTER 2 (USER PPS)
* MAP OF VUSRFCB2:
VUPDXFER EQU X'80' TRANSFER =
VUPDPRT EQU X'40' PRINTER ID
VUPDSTAT EQU X'20' LOGON=
VUPDJKEY EQU X'10' JUMP KEY
VUPDESCK EQU X'08' COMMAND KEY
VUPDMKEY EQU X'04' MENU KEY
VUPDCHAR EQU X'02' PREFIX CHAR
VUPDKOPT EQU X'01' TERM=
* MAP OF VUSRFCB3:
VUPDTOU1 EQU X'80' TIMEOUT INTERVAL
VUPDTOP1 EQU X'40' TIMEOUT OPTION
VUPDSCTY EQU X'20' SECURITY OPTION
VUPDSMAX EQU X'10' MAX SESSIONS
VUPDPRSV EQU X'08' PRIVILEGED COMMANDS ALLOWED
VUPDLANG EQU X'01' LANGUAGE
* MAP OF VUSRFCB4:
VUPDPASS EQU X'20' PASSWORD
VUPDOWNR EQU X'10' AFFINITY SYSTEM
VUPDOCLS EQU X'08' TPXOPER AUTH CLASS
VUPDUCLS EQU X'04' USER UPDATE CLASS
VUPDGRPN EQU X'02' GROUP USER BELONGS TO
VUPDACC EQU X'01' ACCESS=
* MAP OF VUSRFCB5:
VUPDLNG2 EQU X'80' DBCS LANGUAGE
VUPDVBRF EQU X'40' FOREGROUND VERTICAL BORDER FOR WINDOWS
VUPDHBRF EQU X'20' FOREGROUND HORIZONTAL BORDER FOR WINDOWS
VUPDDND1 EQU X'08' DO NOT DISTURB
VUPDPROP EQU X'04' PROPAGATE ACB
VUPDVBRB EQU X'02' BACKGROUND VERTICAL BORDER FOR WINDOWS
VUPDHBRB EQU X'01' BACKGROUND VERTICAL BORDER FOR WINDOWS
* MAP OF VUSRFCB6:
VUPDWMOD EQU X'80' WINDOW MODE-KEY
VUPDWOPT EQU X'40' WINDOW MODE-OPTION BYTE
VUPDWCHR EQU X'20' WINDOW COMMAND CHARACTER
VUPDVLVL EQU X'10' CA‑TPX VIEW AUTHORITY LEVEL
VUSRNLEN EQU *-VINDEX
000150 VUSRPRFL DS XL2 LENGTH OF PROFILE LIST FOLLOWED BY THE
LIST OF PROFILE NAMES
000152 VUSRGRPL DS XL2 LENGTH OF GROUP LIST FOLLOWED BY THE
LIST OF GROUP NAMES
000154 VUSRVAGL DS XL2 LENGTH OF VIEW AUTHORIZATIONG GROUPS AND LEVELS
FOLLOWED BY LIST OF GROUP NAMES
VUSRDLEN EQU *-VUSR MINIMUM DATA LENGTH OF THE FIRST SEGMENT
VUSRVLEN EQU *-VINDEX MINIMUM LENGTH OF THE FIRST SEGMENT
000156 VUSRUPD2 DS AL1(0) THE FLAG BYTE OF THE SECOND SEGMENT
000000 VUVER2 DC X'00' The Version Id of the second Segment
000001 VULEN2 DC AL2(VUSR#2) Length of second Segment
000003 VUEYE2 DC CL4'STXU' Eyecatcher of second Segment
XU PREFIX=XU,TYPE=N .
000007 XU DS 0X
000007 XULOGAPL DS CL8 AUTOLOG APPL NAME
00000F XUCOMMON DS 0X
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* COMMON SB FIELDS FOR IN CORE SB AND VSAM SB RECORD *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
00000F XUTMOUT DC AL4(0) TIMEOUT VALUE, MINUTES
000013 XUPSWD DC CL8' ' PSWD OF USER AT TERMINAL
00001B XUSPLSZ DC XL3'00' SPILLSZ FROM UADS
*P.CORES1 DC XL1'00' RESERVED FOR FUTURE USE
00001E XUFLAG0 DC XL1'00' SOME MORE FLAGS
XUVSYN EQU X'80' ON SAYS WE'RE PART OF VSAM RECORD
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* FLAGS *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
00001F XUMSCFLG DC X'00' MISCELLANEOUS FLAGS
XUSPRNLY EQU X'80' SPOOL TO PRINTER ONLY
XUSPRNDS EQU X'40' SPOOL TO PRINTER AND DATASET ALLOWED
XUTPXSEC EQU X'20' REMEMBER WE ARE USING TPX SECURITY
XUNPVJR EQU X'10' NEW PSWD VERIFY JUST REQUESTED (CONV01)
XUSPUOK EQU X'08' AT LOGON, SECURITY PACKAGE SAID USER OK
XUNOPROF EQU X'04' AT LOGON, NO USER PROFILE FOUND
XULU1SDT EQU X'01' SDT HAS BEEN SENT TO LU1 TERMINAL
000020 XUAUTH DC XL1'00' USER AUTHORIZATION CODE
XUAUPRIV EQU X'80' CLASS A - PRIVILEGED - FULL + ADMINISTRATIVE
XUAUFULL EQU X'40' CLASS B - FULL - ALL BUT ADMISITRATIVE
XUAULIM EQU X'20' CLASS C - LIMITED - X.25 PLUS SELECTION MENU
XUAUBARE EQU X'10' CLASS D - BARE BONES - X.25 SESSION ONLY
XUAUGEN EQU X'40' CLASS B - GENERAL CLASS - ALL BUT ADMIN
XUAURES EQU X'10' CLASS D - RESTRICTED - X.25 SESSION ONLY
000021 XUTERMT DC CL1' ' TERMINAL TYPE (A = AJ,T = TTY)
000022 XUSOPT DC XL1'00' SCREEN MODE OPTIONS FOR THIS USER
XUSOALL EQU X'F0' ALL MODES ALLOWED
XUSOROLL EQU X'80' ROLL MODE ALLOWED
XUSOWRAP EQU X'40' WRAP MODE ALLOWED
XUSOPAGE EQU X'20' PAGE MODE ALLOWED
XUSOAUTO EQU X'10' AUTO MODE ALLOWED
000023 XUMODE DC CL1' ' PAGE MODE : ROLL/PAGE A TIME
XUMDROLL EQU C'R' ROLL MODE
XUMDPAGE EQU C'P' PAGE MODE
XUMDAUTO EQU C'A' AUTO-PAGE MODE
XUMDWRAP EQU C'W' WRAP MODE
000024 XUCASE DC CL1' ' UPPER / LOWER CASE LETTERS
000025 XUTTOTF DC X'00' TIMEOPT FLAG.
XUTTOTT EQU X'80' TERM TIMEOUT SPECIFIED ON TIMEOPT
000026 XUMUFLAG DC X'00' EMULATION FLAG
XUMUISON EQU X'80' EMULATION IS ON
XUMUHELP EQU X'40' EMULATION HELP IS IN PROGRESS
XUMUDSN EQU X'20' ROUTE EMULATION PRINT TO DATASET
XUMUJRNL EQU X'10' JOURNAL ALLOWED FOR EMULATOR SESSIONS
XUMUDBCS EQU X'08' TERMINAL SUPPORTS SO/SI CREATION
XUMUXHLT EQU X'04' TERMINAL SUPPORTS EXTENDED HIGHLIGHTING
XUMUXCLR EQU X'02' TERMINAL SUPPORTS EXTENDED COLOR
XUMUNPT EQU X'01' USE NPT FOR TERMINAL SETUP
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* COMMON SPOOL INFORMATION
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
000027 XUHEAD1 DC CL50' ' OUTPUT HEADER LINE 1
000059 XUHEAD2 DC CL50' ' OUTPUT HEADER LINE 2
00008B XUHEAD3 DC CL50' ' OUTPUT HEADER LINE 3
0000BD XUEMUDES DC XL1'00' EMULATION OUTPUT DESTINATION
0000BE XUOUTDES DC XL1'00' SPOOL OUTPUT DESTINATION
000OBF XUPRNTCL DC CL1' ' PRINTER CLASS FOR SPOOL REQUESTS
0000C0 XUPCOLS DC XL3'00' COLS IN PRINTED OUTPUT
0000C4 XUCOPY DC XL1'00' NUMBER OF COPIES TO BE SENT IN SPOOLING
0000C5 XUCORES2 DC XL1'00' RESERVED FOR FUTURE USE
0000C6 XUCORES3 DC XL1'00' RESERVED FOR FUTURE USE
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* VM SPOOL INFORMATION *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
0000C6 XUSVMHLD DC XL1'00' VM SPOOL HOLD FLAG
0000C7 XUSVMUSR DC CL8' ' VM SPOOL VM USERID
0000CF XUSVMDIS DC CL8' ' VM SPOOL DISTCODE
0000D7 XUSVMDES DC CL8' ' VM SPOOL DESTCODE
0000DF XUSVMFOR DC CL8' ' VM SPOOL FORMS ID
0000E7 XUSVMTAG DC CL24' ' VM SPOOL TAG DATA
0000FF XUSVMSID DC CL24' ' VM SPOOL ID
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* OS/390 SPOOL INFORMATION *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
000107 XUNODEID DC CL8' ' PRINTER DEST FOR SPOOLER REQUESTS
00011F XUPRNTID DC CL8' ' PRINTER DEST FOR SPOOLER REQUESTS
000127 XUPLOTID DC CL8' ' PRINTER DEST FOR PLOTTER REQUESTS
00012F XUSPFCB DC CL4' ' FORMS CONTROL BUFFER FOR SPOOLING
000133 XUDSN DC CL44' ' SPOOLER DATASET
00015F XUSPOLUN DC CL8' ' SPOOL FILE UNIT NAME
000167 XUSPOLUL DC XL1'00' SPOOL FILE UNIT NAME LENGTH
000168 XUDISP DC CL3' ' SPOOLER DSN DISP
00016B XUVOL DC CL6' ' SPOOLER DSN VOL
000171 XUPLOTCL DC CL1' ' PRINTER CLASS FOR PLOTTER REQUESTS
000172 XUPCOPY DC XL1'00' NUMBER OF COPIES TO BE SENT IN PLOTTING
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* VM ACI INFORMATION *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
000173 XUACIFN DC CL8' ' ACIPATH FILENAME
00017B XUACIFT DC CL8' ' ACIPATH FILETYPE
000183 XUACIFM DC CL2' ' ACIPATH FILEMODE
000185 XUACIUSR DC CL8' ' ACIPATH USERID
00018D XUACIVAD DC CL4' ' ACIPATH VIRTUAL ADDR
000191 XUACIPWD DC CL8' ' ACIPATH USERID PASSWORD
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* OS/390 ACI INFORMATION *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
000199 XUACIDSL DC AL2(0) LENGTH OF SBACIDSN
00019B XUACIDSN DC CL44' ' USER ACIDSN
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* RESERVED FIELDS *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
0001C7 XUCORES4 DC AL4(0)
0001CB XUCORES5 DC AL4(0)
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* END OF COMMON SB FIELDS FOR IN CORE SB AND VSAM SB RECORD *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
XUCOMLEN EQU *-XUCOMMON
********************************************
* USER SELF-UPDATE-CLASS/SET-BY-ADMIN BITS *
********************************************
0001CF XUSROFCB DS AL4
0001D3 XUSRFCB0 DC XL1'00'
XUPDPSWD EQU X'80'
USER MAY CHANGE HIS PASSWORD (FOR SECURE=STX)
XUPDAUTH EQU X'40'
USER MAY CHANGE HIS AUTH CLASS
XUPDLGAP EQU X'20'
USER MAY CHANGE STARTUP APPLNAME (LOGAPPL)
XUPDTIMO EQU X'10'
USER MAY CHANGE HIS TIMEOUT OPTION
XUPDTIMI EQU X'08'
USER MAY CHANGE HIS TIMEOUT INTERVAL
XUPDUPC EQU X'04'
USER MAY TURN UPPERCASE CONVERSION ON/OFF
XUPDCOLS EQU X'02'
USER MAY CHANGE PRESENTATION WIDTH (COLS=)
XUPDPMOD EQU X'01'
USER MAY CHANGE TTY PRESENTATION MODE (R,P,A,W)
0001D4 XUSRFCB1 DC XL1'00'
XUPDRV1 EQU X'80' RESERVED
XUPDTERM EQU X'40'
USER MAY CHANGE EMULATED TERMINAL TYPE
XUPDSPSZ EQU X'20'
USER MAY CHANGE NO OF JOURNAL ALLOCATION BLOCKS
XUPDACID EQU X'10'
USER MAY CHANGE ACIDSN
XUPDSADD EQU X'08'
USER MAY ADD SESSIONS IN SELF-MAINT
* THIS FIELD HAS SAME FUNCTION AS VUPDSADD IN TPX
XUPDAPFN EQU X'04'
USER MAY CHANGE VM ACI FILENAME
XUPDAPFT EQU X'02'
USER MAY CHANGE VM ACI FILETYPE
XUPDAPFM EQU X'01'
USER MAY CHANGE VM ACI FILEMODE
0001D5 XUSRFCB2 DC XL1'00'
XUPDAPLU EQU X'80'
USER MAY CHANGE VM ACIPATH LINK USERID
XUPDAPLV EQU X'40'
USER MAY CHANGE VM ACIPATH LINK VIRTUAL ADDRESS
XUPDAPLP EQU X'20'
USER MAY CHANGE VM ACIPATH LINK PASSWORD
XUPDEMUJ EQU X'10'
USER MAY TURN HISEMU JOURNALING CAPABILTIY ON/OFF
XUPDESD EQU X'08' USER MAY CHANGE EMULATION SPOOL DESTINATION
XUPDSHD1 EQU X'04'
USER MAY CHANGE HIS HEADER1 FOR SPOOL BANNER
XUPDSHD2 EQU X'02'
USER MAY CHANGE HIS HEADER2 FOR SPOOL BANNER
XUPDSHD3 EQU X'01'
USER MAY CHANGE HIS HEADER3 FOR SPOOL BANNER
0001D6 XUSRFCB3 DC XL1'00'
XUPDMJSD EQU X'80'
USER MAY CHANGE HIS JOURNAL SPOOL DEST (OS/390)
XUPDMVOL EQU X'40'
USER MAY CHANGE HIS SPOOL-TO-FILE VOLUME (OS/390)
XUPDMDSN EQU X'20'
USER MAY CHANGE HIS SPOOL-TO-FILE DSN (OS/390)
XUPDMDSP EQU X'10'
USER MAY CHANGE HIS SPOOL-TO-FILE DISP (OS/390)
XUPDMUNT EQU X'08'
USER MAY CHANGE HIS SPOOL-TO-FILE UNITNAME (OS/390)
XUPDSCLS EQU X'04'
USER MAY CHANGE HIS SPOOL-TO-PRINTER CLASS
XUPDSCOP EQU X'02'
USER MAY CHANGE HIS SPOOL-TO-PRINTER NO OF COPIES
XUPDMPRT EQU X'01'
USER MAY CHANGE HIS SPOOL PRINTER ID (OS/390)
0001D7 XUSRFCB4 DC XL1'00'
XUPDMFCB EQU X'80'
USER MAY CHANGE HIS SPOOL-TO-PRINTER FCB (OS/390)
XUPDVUID EQU X'40'
USER MAY CHANGE HIS SPOOL USERID (VM)
XUPDVFRM EQU X'20'
USER MAY CHANGE HIS SPOOL FORMS (VM)
XUPDVDC EQU X'10' USER MAY CHANGE HIS SPOOL DESTCODE (VM)
XUPDVTAG EQU X'08'
USER MAY CHANGE HIS SPOOL TAG (VM)
XUPDVHOL EQU X'04'
USER MAY CHANGE HIS SPOOL HOLD OPTION (VM)
XUPDVDIS EQU X'02'
USER MAY CHANGE HIS SPOOL DISTCODE (VM)
XUPDVSID EQU X'01'
USER MAY CHANGE HIS SPOOLID (VM)
0001D8 XUSRFCB5 DC XL1'00'
XUPDPLC EQU X'80' FCB BIT FOR MSPS PLOTTER CLASS
XUPDPLI EQU X'40' FCB BIT FOR MSPS PLOTTER ID
XUPDPL# EQU X'20' FCB BIT FOR MSPS PLOTTER # OF COPIES
XUPDROLL EQU X'10'
FCB BIT FOR ROLL PRESENTATION MODE
XUPDPAGE EQU X'08'
FCB BIT FOR PAGE PRESENTATION MODE
XUPDAPAG EQU X'04'
FCB BIT FOR AUTOPAGE PRESENTATION MODE
XUPDWRAP EQU X'02'
FCB BIT FOR WRAP PRESENTATION MODE
XUPDRPAW EQU XUPDROLL+XUPDPAGE+XUPDAPAG+XUPDWRAP
0001D9 XUSRFCB6 DC XL1'00' NOT USED AT PRESENT
0001DA XUSRFCB7 DC XL1'00' NOT USED AT PRESENT
0001DB XUSRFCB8 DC XL1'00' NOT USED AT PRESENT
0001DC XUSRFCB9 DC XL1'00' NOT USED AT PRESENT
XUSRFCB# EQU *-XUSRFCB0
XULENGTH EQU *-XU
XU#2 EQU *-XUUPD2
COPY VENTRY
000000 VENTRY DSECT
000000 VSESRDW DC F'0'
000004 VSESRTYP DS CL1 PROFILE/USER SESSION RECORD
000005 VUSESNME DS CL8 USER-NAME & START OF KEY
00000D VSESNAME DS CL8' ' SESSID IS THE REST OF THE KEY
000015 VSESLUPD DS CL8 USERID OF LAST UPDATER
00001D VSESDUPD DS CL8 DATE LAST UPDATED
000025 VSESTUPD DS CL8 TIME LAST UPDATED
000030 VSESNXTR DS A NO MEANING IN VSAM OR EXTRACT FILES
000034 VSESUPDC DS XL1 UPDATE IND. BYTE
VSESUPDT EQU X'80' RECORD HAS BEEN UPDATED
VSESADD EQU X'40' RECORD HAS BEEN ADDED
VSESDELT EQU X'20' RECORD HAS BEEN DELETED
000038 DS 0F
VSESHLEN EQU *-VENTRY LENGTH OF HEADER AREA
000038 VSES DS 0F
000038 VSESID DS CL4 CONSTANT '&PRF.'
00003C VSESNEXT DS A NO MEANING IN VSAM OR EXTRACT FILES
000040 VSESAPPL DS CL8 APPLID OF APPLICATION
000048 UENTUSER DS CL8 USERS NAME FOR SESSION (SESSION-ID)
000050 UENTACB DS CL8 RESERVED ACBNAME (OR BLANK)
000058 UENTMODE DS CL8 SPECIFIC MODETABLE ENTRY NAME FOR REQSESS
000060 UENTSCRP DS CL8 INITIALIZATION SCRIPT NAME
000068 UENTSCRT DS CL8 TERMINATION SCRIPT NAME
000070 UENTUID DS CL8 &USERID OVERRIDE FOR THIS SESSION
000078 UENTPASS DS CL8 &PSWD OVERRIDE FOR THIS SESSION
*
000080 UENTDATA DS A NO MEANING IN VSAM OR EXTRACT FILES
UENTDAT# EQU 60 LENGTH OF SIGNON DATA
000084 UENTLAB DS A NO MEANING IN VSAM OR EXTRACT FILES
000088 UENTUPB DS A NO MEANING IN VSAM OR EXTRACT FILES
00008C UENTSB DS A NO MEANING IN VSAM OR EXTRACT FILES
000090 UENTTOUT DS F SESSION TIMEOUT VALUE
000094 UENTUFLD DS F USER FIELD
*
000098 UENTLENG DS H SIGNIFICANT LENGTH AT WRITE TIME
*
00009A UENTTOPT DS C NO MEANING IN VSAM OR EXTRACT FILES
00009B UENTSLCT DS C FUNCTION SELECTION CHARACTER (A,I,V,ETC..)
*
00009C UENTROW DS XL1 ROW OF SESSION IN /W SCREEN
00009D UENTPJMP DS XL1 JUMP KEY FOR THIS SESSION
00009E UENTPRIO DS XL1 PRIORITY OF THE APPLICATION SESSION
*
00009F UENTSTAT DS XL1 STATUS OF THIS ENTRY
UENTDEL EQU X'01' DYNAMICALLY DELETED
UENTSTRT EQU X'02' START=YES SPECIFIED
UENTTNA EQU X'04' TERMINAL NETWORK ACCESS - CLSDST,PASS SESSION
UENTDYN EQU X'08' &PRF. DYNAMICALLY DEFINED
UENTNACL EQU X'10' SKIP ACLPGM THIS TIME
UENTTMEO EQU X'20' THIS SESSION HAS TIMED-OUT
UENTPRFU EQU X'40' SKIP ACLPGM THIS TIME
UENTAUTH EQU X'80' SESSION NOT AUTH. FOR ACTIVATION (DLS)
0000A0 UENTOPT DS X SESSION OPTIONS
UENTOPTK EQU X'01' KEEPACB FOR THIS SESSION
UENTOPTI EQU X'02' INVISIBLE IN THE MENU UNLESS ACTIVE
UENTSIGN EQU X'04' USER MUST ENTER SIGNATURE TO GET ON
UENTNPRF EQU X'08' SESSION WAS NOT DEFINED IN A PROFILE
UENTNCMP EQU X'10' DON'T COMPRESS THIS SESSION
UENTVSAM EQU X'20' THIS UENTRY IMBEDDED IN A VSAM RECORD
UENTSTIC EQU X'40' SESSION WAS BUILT THROUGH ADMIN FUNCTION
UENTBRS1 EQU X'80' RESERVED, BUT DEFINED IN CVPC
*
0000A1 UENTFLG1 DS X
UENTRING EQU X'80' OUTPUT PENDING OPTION - RING ALARM
UENTSWCH EQU X'40' OUTPUT PENDING OPTION - SWITCH TO THIS SESS
UENTSMSG EQU X'20' OUTPUT PENDING OPTION - SEND MESSAGE
UENTACTP EQU X'10' BUILT FROM ACT/PROF - USED AT SIGNON
UENTAINV EQU X'08' SESSION ALWAYS INVISIBLE, EVEN ACTIVE
UENTOVAC EQU X'04' OV/OS/390 ACI SESSION
UENTBRS7 EQU X'02'
UENTBRS8 EQU X'01'
0000A2 UENTUFLG DS X USER AVAILABLE FLAG BYTE
UENTUFL1 EQU X'80' PROTECT FIELDS DESIGNATED ON MENU
0000A4 UENTCRS1 DS F
0000A8 DS 0D DOUBLEWORD ROUNDUP
UENTLEN EQU *-UENTID LENGTH OF ONE ENTRY
0000A8 VSESLBLN DS CL8
0000B0 VSESLABL DS CL32
0000D0 VSESUDAT DS CL60
00010C VSESPRM1 DS CL1
00010D VSESPM1D DS CL27
000128 VSESPRM2 DS CL1
000129 VSESPM2D DS CL27
000144 VSESPRM3 DS CL1
000145 VSESPM3D DS CL27
000160 VSESPRM4 DS CL1
000161 VSESPM4D DS CL27
00017C VSESPRM5 DS CL1
00017D VSESPM5D DS CL27
000198 VSESPRM6 DS CL1
000199 VSESPM6D DS CL27
0001B4 VSESPRM7 DS CL1
0001B5 VSESPM7D DS CL27
0001D0 VSESPRM8 DS CL1
0001D1 VSESPM8D DS CL27
0001EC VSESOFCB DS F
0001F0 VSESFCB1 DS XL1
0001F1 VSESFCB2 DS XL1
0001F2 VSESFCB3 DS XL1
0001F3 VSESFCB4 DS XL1
0001F4 VSESFCB5 DS XL1 NOT USED AT PRESENT
0001F5 VSESFCB6 DS XL1 NOT USED AT PRESENT
0001F6 VSESFCB7 DS XL1 NOT USED AT PRESENT
0001F7 VSESFCB8 DS XL1 NOT USED AT PRESENT
* MAP OF VSESFCB1:
VUPESIGN EQU X'80'
VUPEROW EQU X'40'
VUPENCMP EQU X'20'
VUPEOPND EQU X'10'
VUPEOVAC EQU X'08'
* MAP OF VSESFCB2:
VUPEKACB EQU X'80'
VUPESCRP EQU X'40'
VUPESCRT EQU X'20'
VUPEDATA EQU X'10'
VUPEPJMP EQU X'08'
VUPESTRT EQU X'04'
VUPETOUT EQU X'02'
VUPEACB EQU X'01'
* MAP OF VSESFCB3:
VUPEMODE EQU X'80'
VUPEAPPL EQU X'40'
VUPEPRIO EQU X'20'
VUPETUID EQU X'10'
VUPEPASS EQU X'08'
VUPELAB EQU X'04'
VUPEINV EQU X'02'
VUPEACC EQU X'01'
* MAP OF VSESFCB4:
VUPEPRM1 EQU X'80'
VUPEPRM2 EQU X'40'
VUPEPRM3 EQU X'20'
VUPEPRM4 EQU X'10'
VUPEPRM5 EQU X'08'
VUPEPRM6 EQU X'04'
VUPEPRM7 EQU X'02'
VUPEPRM8 EQU X'01'
VSESVLEN EQU *-VENTRY
**********************************************************************
MLST DSECT
**********************************************************************
Maillist record
000000 MLSTVSMH1 DS 0D
000000 MLSTVSMRD DC A(MLSTVSMHL+MLSTVDLEN+0) RDW
000004 MLSTVSMK0 DC CL1'L' SIGNIFICANT TYPE
000005 MLSTVSMK1 DC CL8' ' 1ST PART OF KEY
000006 MLSTVSMK2 DC CL8' ' 2ND PART OF KEY
000015 MLSTVSMLU DC CL8' ' USERID OF LAST UPDATER
00001D MLSTVSMDU DC CL8' ' DATE OF LAST UPDATE
000025 MLSTVSMTU DC CL8' ' TIME OF LAST UPDATE
00002D MLSTVSM$S DC C' ' Selector flag
00002E DS XL2
000030 MLSTVSMNR DC A(0) NEXT RECORD POINTER
000034 MLSTVSMUI DC AL1(MLSTVSMAD) UPDATE INDICATOR FOR THE RECORD
MLSTVSMUP EQU X'80' RECORD HAS BEEN UPDATED
MLSTVSMAD EQU X'40' RECORD HAS BEEN ADDED
MLSTVSMDE EQU X'20' RECORD HAS BEEN DELETED
MLSTVSMNS EQU X'08' Do not stamp this record
* IF THIS FLAG IS ON AT THE TIME THE RECORD IS BEING READ, THE PRIMARY
USE OF THIS SEGMENT IS NOT ACTIVE. E.G. SEE VINDEX.
LSTVSMS1 EQU X'04' SEGMENT IS UNUSED FOR PRIMARY USE
* IF THIS FLAG IS ON AT THE TIME THE RECORD IS BEING WRITTEN, THE
SEGMENT WILL NOT BE WRITTEN TO THE FILE.
LSTVSMD1 EQU X'02' SEGMENT IS UNUSED
LSTVSMRR EQU X'01' REAL USER SESSION RECORD (USED BY MERGE/ADMIN)
000035 LSTVSMV1 DC AL1(0) THE VERSION ID OF THE FIRST SEGMENT
000036 LSTVSM#1 DC AL2(4+MLSTVDLEN)
LENGTH OF FIRST SEGMENT IF MULTI-SEGMENT
000038 LSTVSM$1 DS 0F Data of first segment
LSTVSMHL EQU *-MLSTVSMH1 LENGTH OF HEADER
LSTOWN EQU MLSTVSMK1,8,C'C'
LSTID EQU MLSTVSMK2,8,C'C'
LST$SEL EQU MLSTVSM$S,1,C'C'
000038 LSTEYE DC CL4'MLST' EYECATCHER
----------------------------------------------------------------------
00003C LSTFLAG DC AL1(MLSTPUBL+MLSTVISI)
LSTPUBL EQU 128 If on, this maillist has public use
LSTVISI EQU 64 If on, this maillist is visible
LSTBRWSE EQU 1 If on, this maillist is being browsed. All
variables are read-only
----------------------------------------------------------------------
00003D LSTTTAR DC AL1(MLSTUSER)
What kind of targets are found in this list?
......................................................................
CA‑TPX mail target types Len Description
......................................................................
LSTUSER EQU 1 8 *Userids
LSTLIST EQU 2 16 *Maillistids
LSTTERM EQU 3 8 *Terminalids
LSTGRP EQU 4 8 *Administrative groupids
LSTAPPL EQU 5 8 *Applids
LSTACTA EQU 6 8 *ActiveApplids
LSTSESS EQU 7 8 *MenuSessionids
LSTACTS EQU 8 8 *ActiveMenuSessionids
LSTNAME EQU 9 25 *UserNames
LSTMSOU EQU 10 16 *Userids
LSTBULL EQU 11 *Bulletin
LSTANB EQU 12 *Application news bulletin
LSTCOMP DC X'00' What kind of compression used?
----------------------------------------------------------------------
The label that follows begins a series of variable length fields.
Each field is delimited by a null (X'00'). The first field is the
title of the maillist. All other fields are the entries of the list
The last entry is followed by an extra null.
----------------------------------------------------------------------
00003F LSTITLE DC X'000000'
LSTVDLEN EQU *-MLSTEYE
LSTVLEN EQU *-MLSTV
**********************************************************************
LOCV DSECT 01-VMAIL
**********************************************************************
Mail locator record 4.0
----------------------------------------------------------------------
000000 LOCVSMH1 DS 0D 02-XVSAM
000000 LOCVSMRD DC A(MLOCVSMHL+MLOCVDLEN+0) RDW 02-XVSAM
000004 LOCVSMK0 DC CL1'X' SIGNIFICANT TYPE 02-XVSAM
000005 LOCVSMK1 DC CL8' ' 1ST PART OF KEY 02-XVSAM
00000D LOCVSMK2 DC CL8' ' 2ND PART OF KEY 02-XVSAM
000015 LOCVSMLU DC CL8' ' USERID OF LAST UPDATER 02-XVSAM
00001D LOCVSMDU DC CL8' ' DATE OF LAST UPDATE 02-XVSAM
000025 LOCVSMTU DC CL8' ' TIME OF LAST UPDATE 02-XVSAM
00002D LOCVSM$S DC C' ' Selector flag 4.0 02-XVSAM
00002E DS XL2 02-XVSAM
000030 LOCVSMNR DC A(0) NEXT RECORD POINTER 02-XVSAM
000034 LOCVSMUI DC AL1(MLOCVSMAD+MLOCVSMNS) X02-XVSAM
UPDATE INDICATOR FOR THE RECORD 4.0
LOCVSMUP EQU X'80' RECORD HAS BEEN UPDATED 02-XVSAM
LOCVSMAD EQU X'40' RECORD HAS BEEN ADDED 02-XVSAM
LOCVSMDE EQU X'20' RECORD HAS BEEN DELETED 02-XVSAM
LOCVSMNS EQU X'08' Do not stamp this record 4.0 02-XVSAM
IF THIS FLAG IS ON AT THE TIME THE RECORD IS BEING READ, THE PRIMARY
USE OF THIS SEGMENT IS NOT ACTIVE. E.G. SEE VINDEX.
LOCVSMS1 EQU X'04' SEGMENT IS UNUSED FOR PRIMARY USE 02-XVSAM
IF THIS FLAG IS ON AT THE TIME THE RECORD IS BEING WRITTEN, THE
SEGMENT WILL NOT BE WRITTEN TO THE FILE.
LOCVSMD1 EQU X'02' SEGMENT IS UNUSED 02-XVSAM
LOCVSMRR EQU X'01' REAL USER SESSION RECORD (USED BY MERGE/ADMIN) 02-XVSAM
000035 LOCVSMV1 DC AL1(0) THE VERSION ID OF THE FIRST SEGMENT 02-XVSAM
000036 LOCVSM#1 DC AL2(4+MLOCVDLEN) X02-XVSAM
LENGTH OF FIRST SEGMENT IF MULTI-SEGMENT
000038 LOCVSM$1 DS 0F Data of first segment 02-XVSAM
LOCVSMHL EQU *-MLOCVSMH1 LENGTH OF HEADER 02-XVSAM
LOCTO EQU MLOCVSMK1,8,C'C' 01-VMAIL
LOCFROM EQU MLOCVSMLU,8,C'C' 01-VMAIL
LOCDATE EQU MLOCVSMDU,8,C'C' 01-VMAIL
LOCTIME EQU MLOCVSMTU,8,C'C' 01-VMAIL
LOC$SEL EQU MLOCVSM$S,1,C'C' 01-VMAIL
000038 LOCEYE DC CL4'MLOC' EYECATCHER 01-VMAIL
----------------------------------------------------------------------
00003C LOCEXPD DC XL4'00' *Expiration date in STCK form 01-VMAIL
but only left word saved. This
field is NOT adjusted for local
time using CVTTZ.
000040 LOCTXID DC CL17' ' *Key of text record
----------------------------------------------------------------------
000051 LOCFLAG DC AL1(0) 02-VMAIL
LOCACK EQU 128 If on, this message is to be acknowledged. 02-VMAIL
LOCREAD EQU 64 If on, this message has been seen by recipient. 02-VMAIL
LOCWIP EQU 32 If on, this message has been stored as 02-VMAIL
"in progress".
LOCOSCD EQU 16 If on, "Only sender can delete". 02-VMAIL
LOCHBAK EQU 8 If on, this message has been acknowledged. 02-VMAIL
LOCBRKN EQU 4 If on, this message was also sent breakin 02-VMAIL
LOCSTOR EQU 2 If on, this message is to be stored 02-VMAIL
LOCSEND EQU 1 If on, this message was also sent 02-VMAIL
000052 LOCFLAG2 DC AL1(0) 02-VMAIL
LOCO2M EQU 128 If on, this message came from OPR2MBX interface 02-VMAIL
LOCISAK EQU 64 If on, this locator is an acknowledgment. 02-VMAIL
LOCOFRM EQU 32 If on, this message came from OPR2MBX interface 02-VMAIL
and OFROM was used.
----------------------------------------------------------------------
The label that follows begins a series of variable length fields.
Each field is delimited by a null (X'00'). The first field is
the Id of the target. It is used only in acknowledgements.
----------------------------------------------------------------------
000053 LOCTARG DC X'00' 01-VMAIL
LOCVDLEN EQU *-MLOCEYE 01-VMAIL
LOCVLEN EQU *-MLOCV 01-VMAIL
**********************************************************************
MSGV DSECT 01-VMAIL
**********************************************************************
Mail message record 4.0
----------------------------------------------------------------------
000000 MSGVSMH1 DS 0D 02-XVSAM
000000 MSGVSMRD DC A(MMSGVSMHL+MMSGVDLEN+0) RDW 02-XVSAM
000004 MSGVSMK0 DC CL1'S' SIGNIFICANT TYPE 02-XVSAM
000005 MSGVSMK1 DC CL8' ' 1ST PART OF KEY 02-XVSAM
00000D MSGVSMK2 DC CL8' ' 2ND PART OF KEY 02-XVSAM
000015 MSGVSMLU DC CL8' ' USERID OF LAST UPDATER 02-XVSAM
00001D MSGVSMDU DC CL8' ' DATE OF LAST UPDATE 02-XVSAM
000025 MSGVSMTU DC CL8' ' TIME OF LAST UPDATE 02-XVSAM
00002D MSGVSM$S DC C' ' Selector flag 4.0 02-XVSAM
00002E DS XL2 02-XVSAM
000030 MSGVSMNR DC A(0) NEXT RECORD POINTER 02-XVSAM
000034 MSGVSMUI DC AL1(MMSGVSMAD+MMSGVSMNS) X02-XVSAM
UPDATE INDICATOR FOR THE RECORD 4.0
MSGVSMUP EQU X'80' RECORD HAS BEEN UPDATED 02-XVSAM
MSGVSMAD EQU X'40' RECORD HAS BEEN ADDED 02-XVSAM
MSGVSMDE EQU X'20' RECORD HAS BEEN DELETED 02-XVSAM
MSGVSMNS EQU X'08' Do not stamp this record 4.0 02-XVSAM
IF THIS FLAG IS ON AT THE TIME THE RECORD IS BEING READ, THE PRIMARY
USE OF THIS SEGMENT IS NOT ACTIVE. E.G. SEE VINDEX.
MSGVSMS1 EQU X'04' SEGMENT IS UNUSED FOR PRIMARY USE 02-XVSAM
IF THIS FLAG IS ON AT THE TIME THE RECORD IS BEING WRITTEN, THE
SEGMENT WILL NOT BE WRITTEN TO THE FILE.
MSGVSMD1 EQU X'02' SEGMENT IS UNUSED 02-XVSAM
MSGVSMRR EQU X'01' REAL USER SESSION RECORD (USED BY MERGE/ADMIN) 02-XVSAM
000035 MSGVSMV1 DC AL1(0) THE VERSION ID OF THE FIRST SEGMENT 02-XVSAM
000036 MSGVSM#1 DC AL2(4+MMSGVDLEN) X02-XVSAM
LENGTH OF FIRST SEGMENT IF MULTI-SEGMENT
000038 MSGVSM$1 DS 0F Data of first segment 02-XVSAM
MSGVSMHL EQU *-MMSGVSMH1 LENGTH OF HEADER 02-XVSAM
MSGFROM EQU MMSGVSMLU,8 01-VMAIL
MSGDATE EQU MMSGVSMDU,8 01-VMAIL
MSGTIME EQU MMSGVSMTU,8 01-VMAIL
MSG#LAST EQU MMSGVSM$S+1,2 01-VMAIL
000038 MSGEYE DC CL4'MMSG' EYECATCHER 01-VMAIL
----------------------------------------------------------------------
00003C MSGEXPD DC XL4'00' *Expiration date in STCK form 01-VMAIL
but only left word saved. This
field is NOT adjusted for local
time using CVTTZ.
000040 MSGNODE DC CL8' ' *Node of sender 01-VMAIL
000048 MSGSYID DC CL4' ' *Systemid of sender 01-VMAIL
00004C MSG#USE DC F'0' *Use count 01-VMAIL
000050 MSGNEXT DC CL17' ' *Key of next record 01-VMAIL
000061 MSGTTAR DC AL1(MMSGUSER) 01-VMAIL
What kind of target is MMSGTARG?
......................................................................
CA‑TPX mail target types Len Description 4.0
......................................................................
MSGUSER EQU 1 8 *Userids 02-VMAIL
MSGLIST EQU 2 16 *Maillistids 02-VMAIL
MSGTERM EQU 3 8 *Terminalids 02-VMAIL
MSGGRP EQU 4 8 *Administrative groupids 02-VMAIL
MSGAPPL EQU 5 8 *Applids 02-VMAIL
MSGACTA EQU 6 8 *ActiveApplids 02-VMAIL
MSGSESS EQU 7 8 *MenuSessionids 02-VMAIL
MSGACTS EQU 8 8 *ActiveMenuSessionids 02-VMAIL
MSGNAME EQU 9 25 *UserNames 02-VMAIL
MSGMSOU EQU 10 16 *Userids 02-VMAIL
MSGBULL EQU 11 *Bulletin 02-VMAIL
MSGANB EQU 12 *Application news bulletin 02-VMAIL
----------------------------------------------------------------------
000062 MSGFLAG DC AL1(0) 02-VMAIL
MSGACK EQU 128 If on, this message is to be acknowledged. 02-VMAIL
MSGREAD EQU 64 If on, this message has been seen by recipient. 02-VMAIL
MSGWIP EQU 32 If on, this message has been stored as 02-VMAIL
"in progress".
MSGOSCD EQU 16 If on, "Only sender can delete". 02-VMAIL
MSGHBAK EQU 8 If on, this message has been acknowledged. 02-VMAIL
MSGBRKN EQU 4 If on, this message was also sent breakin 02-VMAIL
MSGSTOR EQU 2 If on, this message is to be stored 02-VMAIL
MSGSEND EQU 1 If on, this message was also sent 02-VMAIL
000063 MSGFLAG2 DC AL1(0) 02-VMAIL
MSGO2M EQU 128 If on, this message came from OPR2MBX interface 02-VMAIL
MSGISAK EQU 64 If on, this locator is an acknowledgment. 02-VMAIL
MSGOFRM EQU 32 If on, this message came from OPR2MBX interface 02-VMAIL
and OFROM was used.
----------------------------------------------------------------------
000064 MSGCOMP DC X'00' What kind of compression used? 01-VMAIL
----------------------------------------------------------------------
The label that follows begins a series of variable length fields.
Each field is delimited by a null (X'00'). The first field is
the Id of the target. The second field (MMSG$FRM) is the real name
of the sender. The third field (MMSGSUBJ) is subject of
the message. All other fields (MMSGTEXT) are the lines of the
message. The last line is followed by an extra null.
----------------------------------------------------------------------
000065 MSGTARG DC X'0000000000' 01-VMAIL
MSGVDLEN EQU *-MMSGEYE 01-VMAIL
MSGVLEN EQU *-MMSGV 01-VMAIL
Copyright © 2013 CA.
All rights reserved.
|
|