|
View previous topic :: View next topic
|
| Author |
Message |
Scott McC
New User
Joined: 02 Mar 2013
Posts: 12
Location: United States
|
|
|
|
Hello everyone...
I have a flat file with a 400-byte "data area" that is designed to hold 100's of different types of data based upon an "error code" found in Col # 10-13.
I would like to setup fileaid, when using browse, to step thru the file and when the "error code" equals a predetermined value or values - will display that record using the correct 400-byte "data area" layout.
Below is a sample:
| Code: |
01 OMWPR012-DATA-AREA.
05 FILLER-FIRST99-OF-ERRFILE PIC X(99).
05 FILLER REDEFINES FILLER-FIRST99-OF-ERRFILE.
10 REPORT-NUM PIC 9(04).
10 REPORT-TYPE PIC 9(04).
10 SEVERITY-CODE PIC S9.
10 ERROR-NUM PIC S9(04).
10 FILLER PIC X(86).
05 OMWPR012-ERR-MSG-AREA PIC X(400).
|
The OMWPR012-ERR-MSG-AREA is then redefined around 430 additional times all with different layouts for the "ERROR-NUM" and "ERR-MSG-AREA" that matches that layout.
Example:
| Code: |
****************************************************************
* GENERIC - ERROR #97, #98, AND #99
****************************************************************
05 OMWPR012-GENERIC-0097 REDEFINES OMWPR012-ERR-MSG-AREA.
10 OMWPR012-GENERIC-097-FLD-NUM PIC 9(004).
10 OMWPR012-GENERIC-097-HDNG PIC X(050).
10 OMWPR012-GENERIC-097-VALUE PIC X(030).
10 OMWPR012-GENERIC-097-OM-NUM PIC 9(004).
10 OMWPR012-GENERIC-097-OM-HDNG PIC X(050).
10 OMWPR012-GENERIC-097-OM-VAL PIC X(030).
10 OMWPR012-FILLER PIC X(232).
05 OMWPR012-GENERIC-0098 REDEFINES OMWPR012-ERR-MSG-AREA.
10 OMWPR012-GENERIC-098-FLD-NUM PIC 9(004).
10 OMWPR012-GENERIC-098-HDNG PIC X(050).
10 OMWPR012-GENERIC-098-VALUE PIC X(030).
10 OMWPR012-GENERIC-098-PARM-NUM PIC 9(004).
10 OMWPR012-GENERIC-098-PARM-VAL PIC X(025).
10 OMWPR012-FILLER PIC X(287).
05 OMWPR012-GENERIC-0099 REDEFINES OMWPR012-ERR-MSG-AREA.
10 OMWPR012-GENERIC-099-FLD-NUM PIC 9(004).
10 OMWPR012-GENERIC-099-HDNG PIC X(050).
10 OMWPR012-GENERIC-099-VALUE PIC X(030).
10 OMWPR012-FILLER PIC X(316).
|
So, if the value in Col #10 = 97, then I would like to see map 05 OMWPR012-GENERIC-0097 displayed over the data.
If the value in Col #10 = 98, then I would like to see map 05 OMWPR012-GENERIC-0098 displayed over the data.
If the value in Col #10 = 99, then I would like to see map 05 OMWPR012-GENERIC-0099 displayed over the data.
Make sense?
I know Fileaid can do this, this worked many versions ago, but the menus & options seemed to have changed.
  |
|
| Back to top |
|
 |
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL
|
|
|
|
| My shop eighty-sixed File-AID about a year and a half ago, and I never worked with it that much, but ISTR that you have to set up an XREF; specify all the copybooks, and for each copybook specify the selection criterion to be used. I don't think that you can specify subordinate levels in a single copybook. |
|
| Back to top |
|
|
Scott McC
New User
Joined: 02 Mar 2013
Posts: 12
Location: United States
|
|
|
|
ISTR? Has to be a new acronym?
In this case, all 340 redefines are within the same lone copybook member. So, separating them is not an option.
So far, I have muddled thru the process and created several base members and set "unformatted" search criteria for a specific 05 redfines layout by setting up the condition on COL 10 for 4 bytes = error # I am looking for.
The only thing is that you cannot save the XREF with multiple "Default Base" status'. So... I guess i will have to slow down, find each 05 redefines, find a 10 level field used within it, find that field-name in the program and set my criteria.
Old FA used to be easier as I recall... you would just "S" next to a given 05 redefines layout in the same copybook/xref and set the criteria.
This multiple panels stuff is cumbersome! |
|
| Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL
|
|
|
|
| Scott McC wrote: |
| ISTR? Has to be a new acronym? |
I Seem To Recall  |
|
| Back to top |
|
|
Scott McC
New User
Joined: 02 Mar 2013
Posts: 12
Location: United States
|
|
|
|
I am hoping someone will be looking thru the forums and will find this thread and hopefully shed some light on it for me..
I have a FA-Batch and FA-DB2 "manual", but nothing much on the TSO/ISPF FA usage...
Will keep plodding along....
Thanks! |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
Define an XREF file
Use BAS Cmd to define your base
Use S and the record type variable name to set your first definition (use EQ and value on the variable line to select those records)
Use SEG on that line to turn it into a segment
Use S and the record type variable name to set your second definition (use EQ and value on the variable line to select those records)
Use SEG on that line to turn it into a segment
Repeat as needed (you can edit the member of the XREF data set, too)
When you browse the data set, use the XREF file for formatted data. Use PF11 to go to next record and PF8 to go down the current record layout
There is more you can do with XREF but that should get you started. |
|
| Back to top |
|
|
agkshirsagar
Active Member
Joined: 27 Feb 2007
Posts: 691
Location: Earth
|
|
|
|
Plodding through the manuals is one way to go about it.
Or you can go to File-Aid -> XREF and press F1 for help. Its fairly straightforward.
Get back to us if you face any issues. |
|
| Back to top |
|
|
Scott McC
New User
Joined: 02 Mar 2013
Posts: 12
Location: United States
|
|
|
|
Robert,
Thank you - it looks like I am going about it all wrong then...
I have been using 7 - XREF, but incorrectly...
Following your example, here is what happens:
| Code: |
Member list description ===> ______________________________
Long ===> _____________________________________________
Description ===> ___________________________________________
Generated filler length ===> 0 (0 to suppress filler)
Cmd Member Beginning Data Name Description Status
--- ---------- ------------------------------ --------------- --------------
___ OMWPR012 OMWPR012-DATA-AREA BASE
___ OMWPR012 OMWPR012-CITY-ST-0098 SEGMENT
*********** END OF SELECTION CRITERIA ************************
|
Trying with the "S" command, does not allow me to specify the required value in Col #10:
| Code: |
SET 1 OF 1 OMWPR012-CITY-ST-0098 LAYOUT LENGTH: 400
FIELD NUMBER/NAME ------ PICTURE RO ----+----1----+----2----
*************** TOP OF DATA ************************
1 OMWPR012-CITY-ST-0098 GROUP
2 OMWPR012-CITY-ST-098-FLD-NUM 9(4)
3 OMWPR012-CITY-ST-098-HDNG X(50)
4 OMWPR012-CITY-ST-098-VALUE X(30)
5 OMWPR012-CITY-ST-098-PARM-NUM 9(4)
6 OMWPR012-CITY-ST-098-PARM-VAL X(25)
7 OMWPR012-FILLER X(287)
(POS 90-178)
(POS 179-267)
(POS 268-287)
******** BOTTOM OF DATA ******************
|
Trying with the "SU" command allows me to specify (I think) the required value I need in Column 10 to select the correct map. But maybe "SU" is really just letting me access the same part of the record but in the unformatted way:
| Code: |
Use END to continue, CANCEL to return to main screen.
Record Layout Member: OMWPR012
Beginning Data Name: OMWPR012-CITY-ST-0098
AND
Cmd /OR Position Length RO Data Value
--- --- -------- ------ -- --------------------------------
___ _____ _____ EQ ________________________________
___ AND _____ _____ EQ ________________________________
___ AND _____ _____ EQ ________________________________
|
=== here is the "problem"
The 400-byte portion is located at column 100 of the input record.
The error number field is at column 10 of the input record.
All 340 redefined layouts exist in this one copybook and redefine the 400-byte section starting at column 100.
When I try to define the selection criteria "s" I am only provided the redefined layout of the 400-bytes. Not access to column 10 where the error # is that will drive which redefined layout to use for the record.
If i use "su" for the selection criteria, I can specify in Col 10 the error # I want for the specific "segment" I created.
| Code: |
Browse Mode ===> F (F=Fmt; C=Char; V=Vfmt; U=Unfmt)
Specify Browse Information:
Dataset name 'OMDC.T.I578877.GDW.CAZU.OMPR3ERR.SORT.#0723
Member name ===> (Blank or pattern for member list)
Volume serial ===> (If dataset is not cataloged)
Specify Record Layout and XREF Information:
Record layout usage ===> X (S = Single; X = XREF; N = None)
Record layout dataset ===> SOURCE.COPYLIB
Member name ===> OMWPR012 (Blank or pattern for member list)
XREF dataset name ===> COPYLIB.MAPS
Member name ===> OMWPR12X (Blank or pattern for member list)
Specify Selection Criteria Information: (E = Existing; T = Temporary;
Selection criteria usage ===> N M = Modify; Q = Quick; N = None)
Selection dataset name ===> COPYLIB.MAPS
Member name ===> OMWPR012 (Blank or pattern for member list)
|
====== So what I am needing is:
- specify the full copybook with all 340 redefined layouts within
- specify a specific 05 redefined layout name to be displayed, when
---- the condition in Column # 10 matches what I specified for that 05 layout
I apologize for all of the detail, but it is the only way I can explain it to where it makes any sense w/o endless threads asking for more details. |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
Use extract with line numbers to pull out the segments:
| Code: |
IFAXR10 ----- Define XREF - MF0286 ------------------------ Row 1 to 20 of 20
COMMAND ===> SCROLL ===> PAGE
Member list description ===> ______________________________
Long ===> ______________________________________________________________
Description ===> ______________________________________________________________
Generated filler length ===> 0 (0 to suppress filler)
Cmd Member Beginning Data Name Description Status
--- ---------- ------------------------------ --------------- ----------------
___ MF0286 OMWPR012-DATA-AREA _______________ DEFAULT BASE
___ MF0286 OMWPR012-GENERIC-0097 _______________ SEGMENT
ex_ mf0286____ omwpr012-generic-0098_________ _______________
ex_ mf0286____ omwpr012-generic-0099_________ _______________
___ __________ ______________________________ _______________
___ __________ ______________________________ _______________
___ __________ ______________________________ _______________
___ __________ ______________________________ _______________
___ __________ ______________________________ _______________
___ __________ ______________________________ _______________
___ __________ ______________________________ _______________
___ __________ ______________________________ _______________
___ __________ ______________________________ _______________
___ __________ ______________________________ _______________
___ __________ ______________________________ _______________
___ __________ ______________________________ _______________
___ __________ ______________________________ _______________
___ __________ ______________________________ _______________
___ __________ ______________________________ _______________
___ __________ ______________________________ _______________
************************** END OF SELECTION CRITERIA ************************** |
| Code: |
IFAMU384 ------------------- SOURCE STATEMENT SELECTION -----------------------
COMMAND ===>
"CURRENT" source dataset: TTSSRS0.IBMMF.COPYLIB(MF0286)
For entire member, enter blanks in top two sections.
For partial member, enter line numbers or beginning and ending string.
Record layout selection by full dataname or full word character string:
Beginning string ===>
Ending string ===>
Record layout selection by Source Statement line number:
Beginning number ===> 2800
Ending number ===> 3200
Number type ===> cobol (Standard ISPF; COBOL; or Relative)
Compiler options:
Language ===> COBOL (COBOL or PL/1)
Starting level nbr ===> 01
Literal delineator ===> APOST (Quote or apost; COBOL only)
Use 48 character set ===> NO (Yes or No; PL/1 only) |
| Code: |
IFAMU86 ---- LIST OF AVAILABLE RECORD LAYOUTS --------------- Row 1 to 1 of 1
COMMAND ===> SCROLL ===> CSR
Member
S Nbr name 01-level Name Status
--- --- -------- ------------------------------ ------------------------
s 1 MF0286 OMWPR012-GENERIC-0099
************************** END OF SELECTION CRITERIA ************************** |
Use SU command on each row to set ERROR-NUM (position 10 for 4 bytes) to the appropriate value, then select the layout on
| Code: |
IFASCU70 -------------- Unformatted XREF Definition LAYOUTS HAVE BEEN LOADED
COMMAND ===> SCROLL ===> PAGE
Use END to continue, CANCEL to return to main screen.
Record Layout Member: MF0286
Beginning Data Name: OMWPR012-GENERIC-0098
AND
Cmd /OR Position Length RO Data Value
--- --- -------- ------ -- ----------------------------------------------------
___ 10___ 4____ EQ 0099________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
___ AND _____ _____ EQ ____________________________________________________
************************** END OF SELECTION CRITERIA ************************** |
and then use SEG command to change it to a segment. |
|
| Back to top |
|
|
Scott McC
New User
Joined: 02 Mar 2013
Posts: 12
Location: United States
|
|
|
|
I tried the method above, first creating the "default base" on the whole source.copylib member.
Then tried the EX command on the next line, and selected as follows:
| Code: |
File-AID ------------------- SOURCE STATEMENT SELECTION --------------------
COMMAND ===>
"CURRENT" source dataset: I578877.SOURCE.COPYLIB(OMWPR012)
For entire member, enter blanks in top two sections.
For partial member, enter line numbers or beginning and ending string.
Record layout selection by full dataname or full word character string:
Beginning string ===>
Ending string ===>
Record layout selection by Source Statement line number:
Beginning number ===> 2700
Ending number ===> 3400
Number type ===> COBOL (Standard ISPF; COBOL; or Relative)
Compiler options:
Language ===> COBOL (COBOL or PL/1)
Starting level nbr ===> 01
Use 48 character set ===> NO (Yes or No; PL/1 only)
|
from the copylib.source member:
| Code: |
05 OMWPR012-GENERIC-0097 REDEFINES OMWPR012-ERR-MSG-AREA. 00270001
10 OMWPR012-GENERIC-097-FLD-NUM PIC 9(004). 00280001
10 OMWPR012-GENERIC-097-HDNG PIC X(050). 00290001
10 OMWPR012-GENERIC-097-VALUE PIC X(030). 00300001
10 OMWPR012-GENERIC-097-OM-NUM PIC 9(004). 00310001
10 OMWPR012-GENERIC-097-OM-HDNG PIC X(050). 00320001
10 OMWPR012-GENERIC-097-OM-VAL PIC X(030). 00330001
10 OMWPR012-FILLER PIC X(232). 00340001
|
but, received the following error:
| Code: |
File-AID ----- Define XREF - ERR5030 ----------------------- NO RECORD LAYOUT
COMMAND ===> SCROLL ===> CSR
Member list description ===> SELECT LAYOUT BY ERROR NUMBER
Long ===> BROWSE THRU "GDW.CAZU.OMPR3ERR" RPT 5030 ERROR FILE, SELECTING
Description ===> THE SPECIFIC ERROR REDEFINE BASED UPON VALUE IN COL #10
Generated filler length ===> 0 (0 to suppress filler)
Cmd Member Beginning Data Name Description Status
--- ---------- ------------------------------ --------------- ----------------
___ OMWPR012 OMWPR012-DATA-AREA full err rec DEFAULT BASE
EX OMWPR012 ____________
___ _________ _________________________ ____________
___ _________ _________________________ ____________
|
The version of FA we are using is: 9.3.1 from 2011.
Thanks again for ideas & suggestions. |
|
| Back to top |
|
|
Scott McC
New User
Joined: 02 Mar 2013
Posts: 12
Location: United States
|
|
|
|
I created a special PDS called fileaid.xref w/PDS parms: RECFM=VB, LRECL=300, BLKSIZE=304.
I then used option 7 - XREF & created a member in the fileaid.xref = OMWPR012.
S on the first line to specify the main copybook member to use for the base/default base.
1. S on the next line to specify the copybook member to use for the first segment.
>> s on the line
2. pick the copybook to use
3. set the selection criteria for the error-num field
4. find the starting "05" level for the specific error number's layout
5. copy this to the clipboard
6. F3
7. paste the "05" level for the specific error number's layout into the "beginning Data Name" column
8. change the status to a "Segment" by issuing the SEG command to the left
>> Insert a new line and repeat step(s) 1-8 until all 340 or so are defined w/a selection condition.
Sound about right??? |
|
| Back to top |
|
|
Scott McC
New User
Joined: 02 Mar 2013
Posts: 12
Location: United States
|
|
|
|
Due to the number of segments to be placed within this one xref, is there a way to keep the "Define XREF" screen/panel showing the last item inserted into the XREF list?
Everytime I F8 to the screen 2, I)nsert a new line, S)elect the line, S)elect the copylib member, set the RO value(s), L)ocate the "05" layout section of the copybook, F3 back to the previous screen to update the "Beginning Data Name", FA has returned me to the TOP of the Define XREF list being created.
I apologize for this "nit-picky" question, but 340 will probably create approx 22 pages to be scrolled thru.
>> but then, I guess I could just enter the M F8 command to max to the bottom. |
|
| Back to top |
|
|
Scott McC
New User
Joined: 02 Mar 2013
Posts: 12
Location: United States
|
|
|
|
I was motoring right along, no issues, no problems and now that I have created/defined 40 segments off of the default base I get the above error.
| Code: |
File-AID ------------------------ View Criteria ----- FORMATTED CRITERIA ERROR
COMMAND ===> SCROLL ===> CSR
Use END to exit View Display
****************************** TOP OF CRITERIA *******************************
DEFINE BLOCKS=XREF,
DESCRIPTION ="OMPRW012 - ERROR FILE LAYOUT",
XREF_DSNAME=I578877.FILEAID.XREF,
XREF_MBRNAME=OMWPR012,
LAYOUT_DSNAME=I578877.SOURCE.COPYLIB
ERROR: Can not edit Selection Criteria in formatted mode
SELECT SET=1,LAYOUT=OMWPR012-CONTRIB-0084,
LAYOUT_MBRNAME=OMWPR012,
LAYOUT_TYPE=SEGMENT,
LAYOUT_LANG=CBL,
LAYOUT_LEVEL=01
IF
FIELD_NAME=ERROR-NUM,
POSITION=10,LENGTH=4,OPERATOR=EQ,
TYPE=N,VALUE=+0084,+2180,+2225
ERROR: Field does not exist in current layout
|
The above "ERROR: " comments are now shown in each segment when I S)elect them.
With this error, I cannot save the XREF, or trust a F3 will exit/save.
Any ideas???
Here are the XREF items I have created:
| Code: |
Cmd Member Beginning Data Name Description Status
--- ---------- ------------------------------ --------------- ------------
___ OMWPR012 OMWPR012-DATA-AREA _______________ DEFAULT BASE
___ OMWPR012 OMWPR012-CONTRIB-0084 _______________ SEGMENT
___ OMWPR012 OMWPR012-PRE-TAX-0030-FOUR _______________ SEGMENT
___ OMWPR012 OMWPR012-CONTRIB-0096 _______________ SEGMENT
___ OMWPR012 OMWPR012-CHK-DTE-0097 _______________ SEGMENT
___ OMWPR012 OMWPR012-CONTRIB-0098 _______________ SEGMENT
___ OMWPR012 OMWPR012-CONTRIB-0033 _______________ SEGMENT
___ OMWPR012 OMWPR012-PART-CTRY-0017 _______________ SEGMENT
___ OMWPR012 OMWPR012-BRTHDTE-0042 _______________ SEGMENT
___ OMWPR012 OMWPR012-BRTHDTE-0018 _______________ SEGMENT
___ OMWPR012 OMWPR012-HIREDTE-0042 _______________ SEGMENT
___ OMWPR012 OMWPR012-HIREDTE-0019 _______________ SEGMENT
___ OMWPR012 OMWPR012-DATE-0043 _______________ SEGMENT
___ OMWPR012 OMWPR012-DATE-0044 _______________ SEGMENT
Cmd Member Beginning Data Name Description Status
--- ---------- ------------------------------ --------------- --------------
___ OMWPR012 OMWPR012-PLENTDTE-0028 _______________ SEGMENT
___ OMWPR012 OMWPR012-TERMDTE-0025 _______________ SEGMENT
___ OMWPR012 OMWPR012-HRS-SERV-0007 _______________ SEGMENT
___ OMWPR012 OMWPR012-HRS-SERV-0021 _______________ SEGMENT
___ OMWPR012 OMWPR012-TERMDTE-0077 _______________ SEGMENT
___ OMWPR012 OMWPR012-CONTRIB-0033 _______________ SEGMENT
___ OMWPR012 OMWPR012-CONTRIB-0034 _______________ SEGMENT
___ OMWPR012 OMWPR012-CONTRIB-0003 _______________ SEGMENT
___ OMWPR012 OMWPR012-CONTRIB-0029 _______________ SEGMENT
___ OMWPR012 OMWPR012-CONTRIB-0049 _______________ SEGMENT
___ OMWPR012 OMWPR012-CONTRIB-0051 _______________ SEGMENT
___ OMWPR012 OMWPR012-CONTRIB-0051 _______________ SEGMENT
___ OMWPR012 OMWPR012-CONTRIB-0054 _______________ SEGMENT
___ OMWPR012 OMWPR012-CONTRIB-0054 _______________ SEGMENT
Cmd Member Beginning Data Name Description Status
--- ---------- ------------------------------ --------------- -----------
___ OMWPR012 OMWPR012-TAX-DEF-0003 _______________ SEGMENT
___ OMWPR012 OMWPR012-TAX-DEF-0064 _______________ SEGMENT
___ OMWPR012 OMWPR012-BTU032-0147 _______________ SEGMENT
___ OMWPR012 OMWPR012-TAX-DEF-0030 _______________ SEGMENT
___ OMWPR012 OMWPR012-TAX-DEF-0030 _______________ SEGMENT
___ OMWPR012 OMWPR012-TAX-DEF-0029 _______________ SEGMENT
___ OMWPR012 OMWPR012-UDF-CODE-0046 _______________ SEGMENT
___ OMWPR012 OMWPR012-DATA-AREA ws-edited-val5 SEGMENT
___ OMWPR012 OMWPR012-PAY-FREQ-0030 _______________ SEGMENT
___ OMWPR012 OMWPR012-ALT-DTE-0030 _______________ SEGMENT
___ OMWPR012 OMWPR012-ALT-DTE-0082 _______________ SEGMENT
___ OMWPR012 OMWPR012-ALT-DTE-0083 _______________ SEGMENT
___ OMWPR012 OMWPR012-LN-PROC-0067 _______________ SEGMENT
|
|
|
| Back to top |
|
|
Scott McC
New User
Joined: 02 Mar 2013
Posts: 12
Location: United States
|
|
|
|
It was some weird typo that was very hard to nail down as to what I entered incorrectly.. but I finally got it to save w/o errors.
Thanks for all the help!!! |
|
| Back to top |
|
|
Scott McC
New User
Joined: 02 Mar 2013
Posts: 12
Location: United States
|
|
|
|
Robert,
Is the only way to achieve my needed results is to do it the way you have explained, or will the below method (which I have been using) work also?
1) option 7 - xref
2) fileaid.xref - for the PDS
3) OMWPR012 - for the member name
Do Until Done...
a) I)nsert a new line below the "default base"
b) S)elect the new line
c) Choose the copylib member for the segment
(i.e. same as the default base in this case)
d) S)elect the member
e) Enter the criteria desired for COL 10
f) Home to the command line
g) L)ocate the field name for this criteria
h) PF7 to scroll up to see the particular 05 group level field name is
i) Copy it to the clipboard
j) PF3 to return to the Xref panel
k) TAB over to the "Beginning Data Name" column
l) Paste the "05 group level field name copied" in "h)"
m) TAB back to the left - to the CMD column
n) Enter SEG to convert from BASE to SEGMENT
End-Do (goto "a)")
=============
Then to browse, specify the XREF created in the section:
| Code: |
Specify Record Layout and XREF Information:
Record layout usage ===> x (S = Single; X = XREF; N = None)
Record layout dataset ===> SOURCE.COPYLIB
Member name ===> OMWPR012 (Blank or pattern for member list)
XREF dataset name ===> FILEAID.XREF
Member name ===> OMWPR012 (Blank or pattern for member list)
|
Does anything need to go in the following section:
| Code: |
Specify Selection Criteria Information: (E = Existing; T = Temporary;
Selection criteria usage ===> M = Modify; Q = Quick; N = None)
Selection dataset name ===>
Member name ===> (Blank or pattern for member list)
|
The hope is that it will show the full record as-is, but when a XREF condition is met, the correct "05 group-level field name" will be displayed right below the section of the first 99-bytes of the record.
That is versus having to find the "05 group-level field name" I am wanting to overlay/format the record for the criteria specified.
Thanks! |
|
| Back to top |
|
|
|
|
