Code: |
select when datatyp = 'Group' then typ = 'CH' when datatyp = 'Grp-VarLen' then typ = 'CH' when datatyp = 'Display' then typ = 'CH' when datatyp = 'Disp-Num' then typ = 'ZD' when datatyp = 'Packed-Dec' then typ = 'PD' when datatyp = 'Binary' then typ = 'FI' when datatyp = 'Comp-1' then typ = 'FL' when datatyp = 'Comp-2' then typ = 'FL' otherwise typ = 'CH' end |
Code: |
83 *-* do until substr(line,2,16) = ' LineID PL SL ' >>> "0" 84 *-* parse pull line >>> "" 85 *-* end |
Nic Clouston wrote: |
Rexx is "case-agnostic" unless you use 'strictly equal to' == |
Magesh_J wrote: |
I didnt change any thing other than the CASE of the charactes/string.When I changed it to upper case,it worked.
Let me test more and let you know. Thanks Magesh |
Code: |
when datatyp = 'Packed-Dec' then typ = 'PD' |
Code: |
WHEN DATATYP = 'PACKED-DEC' THEN TYP = 'PD' |
Code: |
when datatyp = 'PACKED-DEC' then typ = 'PD' |
Magesh_J wrote: | ||
HI Kolusu,
I changed like below it worked.
Also I changed LINEID from LineID Thanks Magesh |
Code: |
RES (FIXED - 80)....RECOVERY ON....NUMBER OFF............ CAPS OFF....HEX OFF....NULLS ON STD....TABS OFF.......... AUTOSAVE ON....AUTONUM ON....AUTOLIST OFF....STATS ON.... PROFILE UNLOCK....IMACRO NONE....PACK OFF....NOTE ON..... HILITE COBOL CURSOR FIND................................. |
Code: |
COMMAND INPUT ===> SCROLL ===> CSR LINEID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6--- |
Code: |
//STEP0100 EXEC PGM=IGYCRCTL //SYSPRINT DD SYSOUT=* //SYSTERM DD SYSOUT=* //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SYSLIN DD DUMMY //SYSIN DD * CBL MAP IDENTIFICATION DIVISION. PROGRAM-ID. MAIN. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC X(1). 01 B PIC S9(02) COMP. 01 C COMP-2. 01 D COMP-2. 01 E PIC S9(05) COMP-3. 01 F PIC S9(04) COMP-5. PROCEDURE DIVISION. GOBACK. /* |
Code: |
COMMAND INPUT ===> SCROLL ===> CSR LINEID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6-- 0 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. MAIN. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(1). 000007 01 B PIC S9(02) COMP. 000008 01 C COMP-2. 000009 01 D COMP-2. 000010 01 E PIC S9(05) COMP-3. 000011 01 F PIC S9(04) COMP-5. 000012 PROCEDURE DIVISION. 000013 GOBACK. |
Code: |
LINEID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. MAIN. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(1). 000007 01 B PIC S9(02) COMP. 000008 01 C COMP-2. 000009 01 D COMP-2. 000010 01 E PIC S9(05) COMP-3. 000011 01 F PIC S9(04) COMP-5. 000012 PROCEDURE DIVISION. 000013 GOBACK. |
Code: |
//JOBLIB DD DSN=XXXXXXX.LOADLIB,DISP=SHR //STEP0100 EXEC PGM=MGYCRCTL //SYSPRINT DD SYSOUT=* //SYSTERM DD SYSOUT=* //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE) //SYSLIN DD DUMMY //SYSIN DD * CBL MAP IDENTIFICATION DIVISION. PROGRAM-ID. MAIN. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC X(1). 01 B PIC S9(02) COMP. 01 B PIC S9(02) COMP. 01 C COMP-2. 01 D COMP-2. 01 E PIC S9(05) COMP-3. 01 F PIC S9(04) COMP-5. PROCEDURE DIVISION. GOBACK. /* **************************** Bottom of Data |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours