Home SELCOPY CBLVCAT CBLi Trial/Prices CBL SiteMap
 
Multiple Information Retrieval, Manipulation & Update for IBM Mainframe, iSeries, UNIX & PC Platforms

SELCOPY Examples Menu

Often, the information contained in files consists of data which is not readily printable - e.g. packed decimal, binary or hexadecimal fields.

SELCOPY will allow you to view parts of or whole records, areas of your work area, or indeed any of SELCOPY's special fields, in order to recognise non-character data. The normal printout produced by the PRINT commands in a SELCOPY program is basically geared to problem solving by programmers. You can however, easily produce reports for non-programming staff.

The SELCOPY reference manual contains several types of print format, three of which (Types MC,B & D), are illustrated below:-

  SELCOPY REL 9.8P AT CBL - Bridgend UK (Internal Only)                        (OS) VM/CMS=VM03      14.05 WED 09 DEC 1998    PAGE   1
o -----------------------------------------------------                             --------------------------------------    -------- o


o      1.  rd INDD                                                                                                                     o
       2.  print   type=mc    * Mixed - Char if printable, else Hex

o                                                                                                                                      o
      INPUT   SEL SEL                                                                                                    1      RECORD
      RECNO   TOT ID.          1         2         3         4         5         6         7         8         9         0      LENGTH
o     -----   --- --- ....,....0....,....0....,....0....,....0....,....0....,....0....,....0....,....0....,....0....,....0      ------ o

          1     1   2 0Fred Bloggs,1Sunshine House,1Sunshine Street,0Sunny Village,0Sunny Valley,1Sunnington-on-Thames             96
o                     D            0               1                F              E             5                                     o

          2     2   2 0Joe Bloggs,1Thunder Mountain,0Rain Town,0Snowy Creek,0Windy City,0Hail-on-Sea                               78
o                     C           2                 B          D            C           C                                              o
                      ....,....0....,....0....,....0....,....0....,....0....,....0....,....0....,....0....,....0....,....0

o SUMMARY..                                                                                                                            o
   SEL-ID      SELTOT      FILE     BLKSIZE  LRECL           FSIZE   CI    DSN
   ------      ------      ----     -------  -----           -----   --    ---
o     1             2 READ INDD         96    96 U               2       SBR.TEST.A1                                                   o
      2             2

o                                                                                                                                      o
           ** ** ** ** ** ** ** SELCOPY IS LICENSED BY COMPUTE (BRIDGEND) LTD  +44 (1656) 652222 & 656466 ** ** ** ** ** ** **
                                                    ** EXPIRY DATE -- 12 JUN 2001 **
Example: PRINT TYPE=MC (Mixed - predominantly char with hex)

  SELCOPY REL 9.8P AT CBL - Bridgend UK (Internal Only)                        (OS) VM/CMS=VM03      14.05 WED 09 DEC 1998    PAGE   1
o -----------------------------------------------------                             --------------------------------------    -------- o


o      1.  rd INDD                                                                                                                     o
       2.  print   type=b     * Both Char & Hex, Line 1-Char, 2-Zone, 3-Numeric.

o                                                                                                                                      o
      INPUT   SEL SEL                                                                                                    1      RECORD
      RECNO   TOT ID.          1         2         3         4         5         6         7         8         9         0      LENGTH
o     -----   --- --- ....,....0....,....0....,....0....,....0....,....0....,....0....,....0....,....0....,....0....,....0      ------ o

          1     1   2  Fred Bloggs, Sunshine House, Sunshine Street, Sunny Village, Sunny Valley, Sunnington-on-Thames             96
o                     0C9884C9988A61EA9A88984C9AA861EA9A88984EA988A60EA99A4E89988860EA99A4E8998A61EA99898A996996E8898A                 o
                      D69540236772B024528955086425B1245289550239553BF2455805933175BE245580513358B524559573650650381452

o         2     2   2  Joe Bloggs, Thunder Mountain, Rain Town, Snowy Creek, Windy City, Hail-on-Sea                               78  o
                      0D984C9988A61E8A98894D9A9A88960D8894E9A960E99AA4C988960E898A4C8AA60C8896996E88
                      C1650236772B23845459046453195BB919503665BD25668039552BC6954803938BC81930650251
o                     ....,....0....,....0....,....0....,....0....,....0....,....0....,....0....,....0....,....0....,....0             o

  SUMMARY..
o  SEL-ID      SELTOT      FILE     BLKSIZE  LRECL           FSIZE   CI    DSN                                                         o
   ------      ------      ----     -------  -----           -----   --    ---
      1             2 READ INDD         96    96 U               2       SBR.TEST.A1
o     2             2                                                                                                                  o


o          ** ** ** ** ** ** ** SELCOPY IS LICENSED BY COMPUTE (BRIDGEND) LTD  +44 (1656) 652222 & 656466 ** ** ** ** ** ** **         o
                                                    ** EXPIRY DATE -- 12 JUN 2001 **
Example: PRINT TYPE=B (Both char and hex)

  SELCOPY REL 9.8P AT CBL - Bridgend UK (Internal Only)                        (OS) VM/CMS=VM03      14.05 WED 09 DEC 1998    PAGE   1
o -----------------------------------------------------                             --------------------------------------    -------- o


o      1.  rd INDD                                                                                                                     o
       2.  print   type=d

o                                                                                                                                      o
      INPUT   SEL SEL
      RECNO   TOT ID.
o     -----   --- ---                                                                                                                  o
          1     1   2            96
    0000  0DC69985 8440C293 968787A2 6B10E2A4   95A28889 958540C8 96A4A285 6B11E2A4     *.Fred Bloggs,.Sunshine House,.Su*
o   0020  95A28889 958540E2 A3998585 A36B0FE2   A49595A8 40E58993 93818785 6B0EE2A4     *nshine Street,.Sunny Village,.Su*             o
    0040  9595A840 E5819393 85A86B15 E2A49595   899587A3 96956096 9560E388 819485A2     *nny Valley,.Sunnington-on-Thames*
          2     2   2            78
o   0000  0CD19685 40C29396 8787A26B 12E388A4   95848599 40D496A4 95A38189 956B0BD9     *.Joe Bloggs,.Thunder Mountain,.R*             o
    0020  81899540 E396A695 6B0DE295 96A6A840   C3998585 926B0CE6 899584A8 40C389A3     *ain Town,.Snowy Creek,.Windy Cit*
    0040  A86B0CC8 81899360 969560E2 8581                                               *y,.Hail-on-Sea                  *
o                                                                                                                                      o
  SUMMARY..
   SEL-ID      SELTOT      FILE     BLKSIZE  LRECL           FSIZE   CI    DSN
o  ------      ------      ----     -------  -----           -----   --    ---                                                         o
      1             2 READ INDD         96    96 U               2       SBR.TEST.A1
      2             2
o                                                                                                                                      o

           ** ** ** ** ** ** ** SELCOPY IS LICENSED BY COMPUTE (BRIDGEND) LTD  +44 (1656) 652222 & 656466 ** ** ** ** ** ** **
o                                                   ** EXPIRY DATE -- 12 JUN 2001 **                                                   o
Example: PRINT TYPE=D (Dump format)

Top © 2005 Compute (Bridgend) Limited
http://www.cbl.com/selcex05.html
yyyy/mm/dd HH:MM:SS