Suggestions for learning about control blocks

Ask about System customization & performance, Workload management, I/O device configuration etc.
BigLenny
Posts: 10
Joined: Wed Nov 10, 2021 2:05 pm
Skillset: Beginner in JCL, REXX, COBOL, TSO, SDSF, CA-7, CA-11, SAR
Referer: Google

Re: Suggestions for learning about control blocks

Postby BigLenny » Wed Feb 16, 2022 8:22 pm

After playing around with it a bit I realized that I hope to never have to use these conversions ever again haha.

Code: Select all


/* REXX */          
C1 = C2X('A')        
C3F1 = C2X(C1)      
TESTA = C2D('C3F1'x)
TESTB = C2D(C1)      
SAY C1,              
    C3F1,            
    TESTA,          
    TESTB                                                    
 


I'm wondering why I can't do C2D on C3F1 in the code on line 3. I tried C2D on it but it says incorrect call to routine.

So if you want to do a conversion on a certain value you need to make sure to type in the value manually or do the conversion one step before you think you should. If you wanted the value 'C3F1'x you would have to do the conversion through C1 or type it in manually. If you wanted C1 you would have to use A or type in 'C1'x manually.

I hope I understand it, it makes my head hurt :P

User avatar
sergeyken
Posts: 458
Joined: Wed Jul 24, 2019 10:12 pm
Skillset: Assembler, JCL, Utilities, PL/I, C/C++, DB2, SQL, REXX, COBOL, etc. etc. etc.
Referer: Internet search

Re: Suggestions for learning about control blocks

Postby sergeyken » Wed Feb 16, 2022 10:19 pm

Code: Select all

3 *-* C1 = C2X( 'A' )            
  >>>   "C1"                    
4 *-* C3F = C2X(C1)              
  >>>   "C3F1"                  
5 *-* TESTB = C2D(C1)            
  >>>   "50161"                  
6 *-* TESTA = C2D('C3F1'x)      
  >>>   "50161"                  
7 *-* return                    
 
Javas and Pythons come and go, but JCL and SORT stay forever.


  • Similar Topics
    Replies
    Views
    Last post