Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Multiple 400-byte redefine layouts & auto-selecting

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools
View previous topic :: :: View next topic  
Author Message
Scott McC

New User


Joined: 02 Mar 2013
Posts: 12
Location: United States

PostPosted: Tue Jul 23, 2013 10:15 pm    Post subject: Multiple 400-byte redefine layouts & auto-selecting
Reply with quote

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.

icon_eek.gif icon_rolleyes.gif
Back to top
View user's profile Send private message

Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Tue Jul 23, 2013 10:41 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Scott McC

New User


Joined: 02 Mar 2013
Posts: 12
Location: United States

PostPosted: Tue Jul 23, 2013 11:37 pm    Post subject: multiple redefines w/in same copybook
Reply with quote

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
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Tue Jul 23, 2013 11:40 pm    Post subject: Re: multiple redefines w/in same copybook
Reply with quote

Scott McC wrote:
ISTR? Has to be a new acronym?

I Seem To Recall icon_smile.gif
Back to top
View user's profile Send private message
Scott McC

New User


Joined: 02 Mar 2013
Posts: 12
Location: United States

PostPosted: Tue Jul 23, 2013 11:42 pm    Post subject: multiple redefines w/in same copybook
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7913
Location: Bellevue, IA

PostPosted: Wed Jul 24, 2013 12:11 am    Post subject:
Reply with quote

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
View user's profile Send private message
agkshirsagar

Active Member


Joined: 27 Feb 2007
Posts: 685
Location: Earth

PostPosted: Wed Jul 24, 2013 12:12 am    Post subject:
Reply with quote

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
View user's profile Send private message
Scott McC

New User


Joined: 02 Mar 2013
Posts: 12
Location: United States

PostPosted: Wed Jul 24, 2013 3:39 am    Post subject:
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7913
Location: Bellevue, IA

PostPosted: Wed Jul 24, 2013 4:50 am    Post subject:
Reply with quote

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
View user's profile Send private message
Scott McC

New User


Joined: 02 Mar 2013
Posts: 12
Location: United States

PostPosted: Wed Jul 24, 2013 6:25 pm    Post subject: 07/28/13 - almost, but not quite
Reply with quote

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
View user's profile Send private message
Scott McC

New User


Joined: 02 Mar 2013
Posts: 12
Location: United States

PostPosted: Wed Jul 24, 2013 6:54 pm    Post subject: 7/24/13 - think I figured it out.....
Reply with quote

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
View user's profile Send private message
Scott McC

New User


Joined: 02 Mar 2013
Posts: 12
Location: United States

PostPosted: Wed Jul 24, 2013 7:14 pm    Post subject: 7/24/13 - think I got it ** stupid question
Reply with quote

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
View user's profile Send private message
Scott McC

New User


Joined: 02 Mar 2013
Posts: 12
Location: United States

PostPosted: Wed Jul 24, 2013 8:38 pm    Post subject: ** Error - formatted criteria error
Reply with quote

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
View user's profile Send private message
Scott McC

New User


Joined: 02 Mar 2013
Posts: 12
Location: United States

PostPosted: Wed Jul 24, 2013 10:43 pm    Post subject: (FIXED) ** Error - formatted criteria error
Reply with quote

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
View user's profile Send private message
Scott McC

New User


Joined: 02 Mar 2013
Posts: 12
Location: United States

PostPosted: Thu Jul 25, 2013 1:38 am    Post subject: ** Requesting a little clarification
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Converting multiple VB files to FB fi... Viswanath Reddy JCL & VSAM 6 Mon Aug 08, 2016 11:49 pm
No new posts Execute multiple DB2 Load commands in... faizm DB2 4 Wed Aug 03, 2016 12:53 pm
This topic is locked: you cannot edit posts or make replies. JCL MULTIPLE STEP EXECUTION QUERY Susanta JCL & VSAM 18 Sat Jul 30, 2016 1:17 pm
No new posts Multiple parameters Csongor All Other Mainframe Topics 16 Thu Jun 09, 2016 7:54 pm
No new posts Define Alias for multiple Data sets u... sandy98669 JCL & VSAM 4 Fri May 27, 2016 1:07 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us