APAR status
INTRAN
Error description
5648B0500 210 R210 The User's Guide is on the worldwide web www.software.ibm.com/ad/cobol/maccca.htm See apar PQ17165 hiper. For further document changes refer to II12115. APAR PQ24551: Alteration to Conversion Diagnostic messages (Appendix C). Change: ABJ6046 00 WRITE...AFTER POSITIONING...CHANGED TO WRITE... AFTER ADVANCING ABJ6310 08 END-OF-PAGE PHRASE NOT ALLOWED WITHOUT A LINAGE CLAUSE FILE DESCRIPTION ENTRY *MANUAL UPDATE IS REQUIRED Delete: ABJ6120 00 (END OF PAGE CHANGED TO CHANNEL 12 TEST) Add: ABJ6062 00 LCP-EOP DATA NAME IS GENERATED ___________________________________________________________ APAR PQ28128: Chapter 4. DATE FORMAT Conversion Option To the section "DATE FORMAT clause" add the following date formats to the syntax diagram: _______________________________________________________________ YYX XYY XXYY XXXYY XXXXYY YYYYX XYYYY XXYYYY XXXYYYY XXXXYYYY YYX A windowed year followed by 1 character. XYY A windowed year preceded by 1 character. XXYY A windowed year preceded by 2 characters. XXXYY A windowed year preceded by 3 characters. XXXXYY A windowed year preceded by 4 characters. YYYYX An expanded year followed by 1 character. XYYYY An expanded year preceded by 1 character. XXYYYY An expanded year preceded by 2 characters. XXXYYYY An expanded year preceded by 3 characters. XXXXYYYY An expanded year preceded by 4 characters. ___________________________________________________________ To the section "DATE Identification File" add the following date formats to the Format of date identification file syntax diagram. _______________________________________________________________ YYX XYY XXYY XXXYY XXXXYY YYYYX XYYYY XXYYYY XXXYYYY XXXXYYYY YYX Specifies the data item contains a windowed year followed by 1 character. XYY Specifies the data item contains a windowed year preceded by 1 character. XXYY Specifies the data item contains a windowed year preceded by 2 characters. XXYY Specifies the data item contains a windowed year preceded by 2 characters. XXXYY Specifies the data item contains a windowed year preceded by 3 characters. XXXXYY Specifies the data item contains a windowed year preceded by 4 characters. YYYYX Specifies the data item contains an expanded year followed by 1 character. XYYYY Specifies the data item contains an expanded year preceded by 1 character. XXYYYY Specifies the data item contains an expanded year preceded by 2 characters. XXXYYYY Specifies the data item contains an expanded year preceded by 3 characters. XXXXYYYY Specifies the data item contains an expanded year preceded by 4 characters. _______________________________________________________________ In the section "How the DATE FORMAT Conversion Option Works" under the heading "Checking DATE FORMAT Clause Syntax", change the 2nd bullet to: Does not have a: - BLANK WHEN ZERO clause - JUSTIFIED clause - SIGN clause with a SEPARATE CHARACTER phrase Change the 4th bullet to: In the case of an elementary data item: - Has a picture string that contains 1) all 9's or 2) an S followed by 9's 3) 9's, A's and X's and not all A's - Has a computer storage format (USAGE clause) of DISPLAY, COMPUTATIONAL-3, PACKED-DECIMAL, BINARY, COMPUTATIONAL or COMPUTATIONAL-4 - Where the length of the PICTURE character string (e.g. 999999) matches the length of the corresponding format field in the date identification file (e.g.YYXXXX) Add a 6th bullet: Is not an external data item or part of an external data item. _______________________________________________________________ APAR PQ25840 In APPENDIX A modify the notes for CURRENT-DATE/TIME-OF-DAY/ WHEN-COMPILED. CURRENT-DATE Replace paragraph 3 For non-CICS programs converting to VS COBOL II the ACCEPT...FROM DATE statement is used to obtain the date. Programs converting to a non VS COBOL II level the Intrinsic Function CURRENT-DATE is used to obtain the date. The fields required for reformatting are generated in the WORKING-STORAGE SECTION. TIME-OF-DAY Replace paragraph 3 For non-CICS programs converting to VS COBOL II the ACCEPT...FROM TIME statement is used to obtain the time. Programs converting to a non VS COBOL II level the Intrinsic Function CURRENT-DATE is used to obtain the time. The fields required for reformatting are generated in the WORKING-STORAGE SECTION. WHEN-COMPILED Replace paragraphs 1 & 2 Language level 1,2 Programs converting to VS COBOL II with a date format = DD/MM/YY will obtain the date/time from the WHEN-COMPILED Special Register. Language level 3,4 Programs converting to VS COBOL II will obtain the date/time from the WHEN-COMPILED Special Register. Note that the original format of the WHEN-COMPILED Special Register included a 4 digit year. The century value is not available from the current Special Register and if required must be manually added to the converted source program. Language level 1,2,3,4 Programs converting to a non VS COBOL II target level will obtain the date/time information from the Intrinsic Function WHEN-COMPILED. The fields required for reformatting are generated in the WORKING-STORAGE SECTION. In APPENDIX C ADD/MODIFY/DELETE the following Conversion Diagnostic messages:- ADD: ABJ6015 04 NEW CODE GENERATED FOR WHEN-COMPILED ** WARNING CENTURY VALUE NOT SET, MANUAL UPDATE MAYBE REQD MODIFY: ABJ6002 00 LCP-xxx DATE/TIME DATA ITEMS GENERATED IN WORKING-STORAGE FOR CURRENT-DATE/TIME-OF-DAY/ WHEN-COMPILED CONVERSIONS DELETE: ABJ6004 00 LCP-TIME-OF-DAY-68 GENERATED... ABJ6006 00 LCP-WHEN-COMPILED-68 GENERATED... APAR PQ31656 In APPENDIX A modify the notes for ASSIGN Language Notes level 1,2,3,4 Assignment names of the following formats: SYSnnn-class-device-organization-<name> <class>-<device>-<organization>-name are converted to the target language format. Target: VSE Others DOS/VS (lang lvl 1,2): SYSnnn-UR-device-S-<NAME> SYSnnn SYSnnn SYSnnn-UT-device-class-NAME SYSnnn-NAME NAME SYSnnn-UT-device-S-NAME SYSnnn-NAME NAME SYSnnn-UT-device-S SYSnnn SYSnnn SYSnnn-UT-device-C<-nn>-NAME SYSnnn-NAME NAME SYSnnn-UT-device-C<-nn> SYSnnn SYSnnn SYSnnn-DA-device-S-NAME SYSnnn-NAME NAME SYSnnn-DA-device-S SYSnnn SYSnnn SYSnnn-class-device-I-NAME NAME NAME SYSnnn-class-device-D-NAME NAME NAME SYSnnn-class-device-W-NAME NAME NAME SYSnnn-class-device-A-NAME NAME NAME SYSnnn-class-device-U-NAME NAME NAME VSAM sequential AS-NAME AS-NAME VSAM non-sequential NAME NAME OS/VS (lang lvl 3,4): class-<device->-org-NAME NAME NAME <comments>-NAME NAME NAME UT-device-C<-nn>-NAME NAME NAME <comments>-C-<-nn>-NAME NAME NAME VSAM sequential AS-NAME AS-NAME VSAM non-sequential NAME NAME Files that have an organizational parameter equal to D,W,A, U or R should be converted to VSAM/RRDS. An ORGANIZATION IS RELATIVE clause and a FILE STATUS IS LCP-STATUS-nn clause is added to the SELECT entries. Files that have an organizational parameter equal to I should be converted to VSAM/KSDS. An ORGANIZATION IS INDEXED clause and a FILE STATUS IS LCP-STATUS-nn clause is added to the SELECT entries. For the target language COBOL for VSE/ESA, CCCA will now display message ABJ6027 IF TAPE IS 'UNLABELLED' CHECK JCL FOR A MATCHING TLBL STATEMENT & REMOVE, if the file is a tape device and the both the programmer logical device (SYSnnn) and an external file name is included in the file assignment name. All assignment names in addition to the primary are removed. In APPENDIX C ADD/MODIFY/DELETE the following Conversion Diagnostic messages:- ADD: ABJ6027 04 IF TAPE IS 'UNLABELLED', CHECK JCL FOR A MATCHING TLBL STATEMENT AND REMOVE MODIFY: ABJ6064 00 ADDITIONAL ASSIGNMENT NAME(S) REMOVED APAR PQ25516 In Chapter 7 (Tokenization) add the following comment: Note: CCCA does not tokenize literals which are greater than 30 chars long. The tokenization report will reflect this fact with a filler of asterisks as follows:- 01 TEST-LINE-2 PIC X(80) VALUE 00311001 01 ::::::::::::::::::::::::::::::::::::::::::::: 000410 01.. TEST-LINE-2 :::::::::::::::::::::::::::::::: 000410 05.. PIC :::::::::::::::::::::::::::: 000410 17.. X(80) :::::::::::::::::::::: 000410 21.. VALUE :::::::::::::::: 000410 27.. >> "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB".00312006 >> ************************************ ::::::: 000420 05.. .::::::: 000420 41.. ___________________________________________________________ APAR PQ25129 On page 75 (Chapter 6 Deleting LCPs and Activating/Deactivating Debugging for LCPs) (1) Replace Figure 36. Delete/Debug LCP Panel with new panel as follows:- -------------------- CCCA Delete/Debug LCP--------- Row 1 to 12 Command ===> Scroll ===> PAGE Actions: Commands: DBG Activate debugging for an LCP DBG Activate debug... blank Deactivate debugging for an LCP CLR Deactivate debug... DEL Delete LCP from LCP library L string Scroll to str.. PF1 Help PF3 Exit PF4 Return PF7 Up PF8 Down Action LCP name ... ACCEPT ... ACCESS ---------------------------------------------------------------- (2) Insert the next two paragraphs following the paragraph headed "To deactivate debugging for an LCP" To activate debugging for all LCPs Type DBG on the command line, then press ENTER To clear actions for all LCPs Type CLR on the command line, then press ENTER To locate an LCP using a string search Type L xxx on the command line, then press ENTER Documentation changes requested by customers: (1) PMR 93771,B004 (13th June 1999) Add a note to Chapter 3 - Setting Conversion Options. If the "Generate new program" or "Generate new copy members" options are set to Y, then new source members are generated regardless of whether there were any changes applied.
Local fix
Problem summary
Problem conclusion
Temporary fix
Comments
APAR Information
APAR number
II11342
Reported component name
PA LIB INFO ITE
Reported component ID
INFOPALIB
Reported release
001
Status
INTRAN
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
1998-08-17
Closed date
Last modified date
1999-12-08
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Fix information
Applicable component levels
[{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19N","label":"APARs - OS\/390 environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG32M","label":"APARs - VSE\/ESA environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":null,"label":null},"Product":{"code":"SG19O","label":"APARs - MVS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SSSN3L","label":"z\/OS Communications Server"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG27M","label":"APARs - z\/VM environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"LOB16","label":"Mainframe HW"}}]
Document Information
Modified date:
08 December 1999