Compute (Bridgend) Ltd - CBL

1 Compute ( bridgend ) LtdSELCOPY Batch User ManualRelease Merthyr Mawr Road, bridgend , Wales UK CF31 3 NHTel: +44 (1656) 65 2222 Fax: +44 (1656) 65 2227 CBL Web Site - document may be downloaded from Ref: z:\cd\sman\s330\ 2015/03/03 11:10:28 -ContentsDocumentation of Assembler for z/OS, z/VM and C++ for z/OS, z/VM, Series i, UNIX and , UNIX and PC Computer and Bytes Decimal Decimal SELCOPY and Control Control Next Statement Syntax Statement Syntax Statement Syntax Summary Words, Parameters and ! (Default separator character)..24* (Comment)..24*< (Comment Ignoring Separator)..25*> (Comment in Summary)..25/* (End of Input Control Statements)..25\ (Control Statement Continuation).. (Operation Word)..28 AND=string (Logical Operator).. (for Input)..31 BLKSIZE=n/SAME/MAX/UNB (for Output).. Direction for (for Mainframe)..35 CALL (for UNIX, Windows and OS/2).

2 37 CANCEL (Operation Word)..39 CANCEL (Parameter)..39 CAT Manual2015-03-03 11:16:07iContentsOperation Words, Parameters and Conversion (ASCII --> EBCDIC)..47 SELCOPY ASCII->EBCDIC Translate (Binary --> Char)..48 CVBP=n (Binary --> Packed)..49 CVCB=n (Char --> Binary)..49 CVCF=n (Char --> Float)..49 CVCH=n (Char --> Hex)..50 CVCP=n (Char --> Packed)..51 CVEA=n (EBCDIC --> ASCII)..52 SELCOPY EBCDIC->ASCII Translate (Float --> Char)..53 CVHC=n (Hex --> Char)..54 CVPB=n (Packed --> Binary)..54 CVPC=n (Packed --> Char)..55 CYLOFL= (Operation Word)..57DB2 (Parameter)..57 DEFDIR= (for MVS)..60 DIR (for CMS)..61 DIR (for VSE)..62 DIR (for iSeries, UNIX and PC)..63 DIRDATA (General)..64 DIRDATA (for CMS)..65 DIRDATA (for MVS)..66 DIRDATA (for VSE)..66 DIRDATA (for iSeries, UNIX and PC)..67 DIV= [= YES | NO ]..71 DUMPENC = "xy" | "x".. (Operation Word)..74 (Testing for)..75 WARNING (End-of-Line protocol).

3 'string'..77 EQU (Operation Word)..77 !!! IMPORTANT FEATURE !!!.. MVS 'phasenam'.. (logical)..81 DUMMY (logical)..82 SELCOPY Manual2015-03-03 11:16:07iiContentsOperation Words, Parameters and KeywordsFILE= Reading Through VSE /* and /&..84 FILE= TYPE (Print and LOG)..86 FILE= FROM Mainframe Job # ERROR On 'string'..94 FORMAT Control Reversing Direction on a 'string'..96 GEN= GET/EOJ/ 'string'..100 HEAD='string'..100 HEAD= (Type 1 - Character Strings)..102IF (Type 2 - Arithmetic)..104IF (Type 3 - Specials).. Default STOPAFT= Use WRITE instead of READ INTO KEQ (Key EQual)..110 KEYFROM= For CMS, AS/400, UNIX and PC For CMS, AS/400, UNIX and PC MVS 'string'.. Manual2015-03-03 11:16:07iiiContentsOperation Words, Parameters and Keywords Testing the LINE (1. as a position)..117 LRECL (2. as an Operation Word)..117 LRECL (3. as a Parameter for Files).

4 MARC Formats 'string'..121 (Redundant word)..122 MOVE= Padded On a READ (Redundant word).. 'string'..129 OPEN (Operation Word)..133OR= 'string' (Logical Operator)..134 PACK= Default, 'nnnn,nnnn,nnnn,nnnn'..136 PASSWORD= (1. as an Operation Word)..137 POS=p1 (,p2) (2. as a Parameter with Numeric Arg)..137 POS=p1 (,p2) (3. as a Parameter with Special Keyword)..139 POS POS POS POS POS POS POS POS For POS POS CAT POS POS POS POS Manual2015-03-03 11:16:07ivContentsOperation Words, Parameters and Keywords LRECL= POS POS POS POS POS POS POS POS POS POS POS POS POS POS POS POS POS UXINCNT+ POS POS POS POS UXLRECL+ POS POS POS POS POS VSAM Option File Name (Mandatory)..158 REC=n (Testing for)..159 REC=n (Reading by)..159 RECFM=..160 Default Effects of Return Code MVS 'string'.

5 169 SIZE= Manual2015-03-03 11:16:07vContentsOperation Words, Parameters and KeywordsSQL='full SQL statement'..171 READ LIFO/FIFO Use in Array STOPAFT INTO Dynamic CMS Environment 'Lit1' 'Lit2'.. Output (for Data)..184 TYPE=x (for Printing)..184 TYPE=B (for Printing)..185 TYPE=C (for Printing)..185 TYPE=D (for Printing)..186 TYPE=DX (for Printing)..187 TYPE=H (for Printing)..187 TYPE=M (for Printing)..188 TYPE= (for Printing)..188 TYPE=N (for Printing)..189 TYPE=S (for Printing)..190 LOG (Parameter)..192 VSAM fname (Operation Word)..192 Length Modification on MVS VSE File (Operation Word)..199 WTO (Parameter)..199 XOR='string'..199XV For Manual2015-03-03 11:16:07viContentsOperation Words, Parameters and Keywords Option 'string'..203 Further of Operation and * = FILE=..207 Redundant v Data for Negative for String for PRINT/LOG/Output Variable Length Record Fixed Mainframe Input A "Problem" with no Input via VSE for MVS and for PDS MVS Operator STOP Testing - ON/ Testing for bits Modification - OR/ Set bits Summary and LRECL - The @ User @ Assignment - Assignment - Duration of Value Testing for @ pointer Usage a Pointer from an Address a Pointer Value into @ Pointer & AS/400, UNIX and AS/400, UNIX and Heading Debugging Trap Set Selection Trap Set Selection SELCOPY Query Manual2015-03-03 11:16:07viiContentsISAM Input Input - Output - Output - KEYLEN Example 1 - S Example 2 - TSO Example 2 - in Example 3 - TSO Example 3 - in Example 4 - Limitations of User EXIT (Obsolete).

6 Of User Machine VSE of IDCAMS Managed SAM READ (Synonyms RD IN INPUT)..249 VSAM KSDS, ESDS, RRDS or VSAM use of Input Output Processing after VSAM files for Approximate and DL/1 For For For Position Keywords for DL1 without Function with STATUS= Essential DBD for same Processing after on Example 1 - Example 2 - Read using Example 3 - Example 4 - Example 5 - Example 6 - Example 7 - Use of Work Example 8 - Generalised Manual2015-03-03 11:16:07viiiContentsIMS and DL/1 Processing Quick Print of IMS/DL1 Data and the DB2 a SELCOPY in Different DB2 Using Multiple CBLNAME Read Insert Statement Position Keywords for CBLSQLOG log Example 1: Normal SQL Example 2: Run Time Error RC= Example 3: Run Time Error with SQLCA SQL I/O Area SELCOPY EQU Example 4: Accessing the Example 5: Ctl Cards for generating EQU Example 5.

7 Output Cards for generating LOAD READ of DB2 SQL Error Example 6: DB2 Connect Example 7: DB2 OPEN Warnings from Enhanced processing of PREPARE SQL Statement DB2 - Type - Type - Type of Current of Current DB2 'string'..288 FORMAT= Length Control Processing after , UNIX and PC , UNIX and PC (Mainframe CBLNAME Equivalent)..292 FILE=PRINT Output native printer Line Line -ctl Manual2015-03-03 11:16:07ixContentsAS/400, UNIX and PC ProcessingCommand Line Control , UNIX and PC for AS/400, UNIX and PC RECFM= Read for AS/400, UNIX and RECFM= Field for literals or File automatic ASCII to EBCDIC APPEND TRUNC/NOTRUNC AS/400, UNIX and PC/DOS ON or OFF ?..301 Native CMS Filename File Mode for CMS RECFM= Special Case CMS File - Print and APPEND TRUNC/NOTRUNC - Transfer REXX and CLEAR CMS Prohibited STACK LIFO/FIFO CP Prohibited Command Read for By Record Processing after - Read off RDR - Read Guest VSE/MVS File (with DOS OFF).

8 309 SELCFBA - Read Guest FBA (DOS ON)..310 SELCVSAM - CMS with use of DIR use of with with Distribution 1 - Card Reformatted to 2 - Tape Copy and 3 - Tape Format, Copy & 4 - Use of 5 - Variable to Fixed 6 - DA Disk to Tape & 6a - Sequential Disk to 7 - Use of @ Match 2 Files out of 8 - VSAM Back-Up 6 VSAM Files to 1 Tape 9 - RECFM=V from Alternative 10 - Compare 2 User's Own Control Routine to Vet Manual2015-03-03 11:16 CARD Console TIME Console SQL Messages at To the ERRORS for PERM TAPE ERROR - ACCEPT/ CODES set by Manual2015-03-03 11:16:07xiDocumentation NotesThe SELCOPY User Manual is available in Adobe Acrobat PDF format at CBL web page in the whole and every part of this document and of the SELCOPY system and programs is owned by Compute ( bridgend ) Ltd, whose registered office is located at 8 Merthyr Mawr Road, bridgend , Wales, UK, CF31 3NH, and who reservethe right to alter at their convenience the whole or any part of this document, or the SELCOPY system and reproduction of the whole or any part of the SELCOPY system and programs, or of this document, is to be made without priorwritten authority from Compute ( bridgend ) the time of publication, this document is believed to be correct.

9 Where the program product differs from that stated herein, Compute ( bridgend ) Ltd reserve the right to revise either the program or its documentation at their do not warrant that upward compatibility will be maintained for any use made of this program product to perform any operationin a manner not documented within the user 11:16:07 SELCOPY Manual1 Summary of ChangesThis section describes the major new features and changes provided by SELCOPY Release The last edition of this manual,published in April 1998, documented SELCOPY Release for Mainframe platforms and SELCOPY Release for iSeries,UNIX and PC that changes and new features may be subject to alteration, at the discretion of CBL, according to advice and feed-back fromusers. CBL welcomes your new feature suggestions and Assembler for z/OS, z/VM and z/VSEI ntroduced in Rel (March 1999):The SELCNAM file.*IMPORTANT*OPT SITE='string' parameter.

10 *IMPORTANT*OPT PASS=x'nnnn,nnnn,nnnn,nnnn' parameter.*IMPORTANT*OPT RANGE=yyyy/mm/dd-yyyy/mm/dd parameter.*IMPORTANT*4 digit year for VM/VSE DIR.*IMPORTANT*OPT Y2/Y4 CONTMAX CBLNAME Error Messages: 001, 153, 154 Introduced in Rel (May 2001):PRINT output changes for TYPE=B,C,D,M.*IMPORTANT*ASCII/EBCDIC Translation changes.*IMPORTANT*PAGEWIDTH=nnn changes.*IMPORTANT*OPT DATAWIDTH UXREPLYL card length restriction relaxed for MVS and CMS to default SELCOPY output in Rel (December 2010):Support optional BSAM output to non-VSAM data Blocksize Interface (LBI) used for tape data sets with BLKSIZE>32 KSupport I/O buffers obtained from above the 16M line (SMS Extended Datasets).Introduce CBLNAME option STapeInpLIOC=YES for VSE CA-EPIC encrypted in Rel (March 2012):CALL to a mixture of COBOL II and Enterprise COBOL VSAM control blocks allocated above the 16MB in Rel (October 2013):DB2 WITH common-table-expression for use of ADABAS AMODE(31) ADAUSER in Rel (March 2015):Enhancements to SELCOPY Debugger (See "SELCOPYi Reference and User Guide".)