Extract File Layout

This section contains a list of the records that will be written to an extract file. You will need to refer to this section if you plan to use a report generator.
tpxsm
Overview
This section contains a list of the records that will be written to an extract file. You will need to refer to this section if you plan to use a report generator.
The file layout shown here is for a user record with a session record. In your extract file, there may be more than one session record for each user record.
If the extract file contains a profile record, the layout is the same as the user record, except the field names begin with PIDX instead of UIDX. In addition, any user fields that refer to profiles or groups are not included in a profile record.
The field positions given specify the relative position of the field in the file.
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