giovedì 9 maggio 2013

Mixed Case in ambiente CICS

Per Default , CICS converte tutti i caratteri inseriti in maiuscolo. Si possono quindi inserire stringhe in maiuscolo e minuscolo ma, alla pressione di ENTER o di un un tasto funzione, i caratteri vengono convertiti in maiuscolo e così passati alla transazione in esecuzione. Normalmente si lascia questo comportamento predefinito in atto.
Tuttavia  vi sono casi in cui è comodo se non necessario avere la possibilità di inserire valori sia maiuscoli che minuscoli. Se i è permesso l'accesso ai comandi CICS appropriati, è possibile disattivare la funzione maiuscole CICS e impostare il terminale CICS per consentire l'input misto.


In primo luogo, è necessario determinare l'ID terminale. Un modo per farlo è con il comando CEMT:


 CEMT I TASK                                                                   

  STATUS:  RESULTS - OVERTYPE TO MODIFY                                         
+ Tas(0000137) Tra(Y1V3)           Sus Tas Pri( 240 )                          
     Sta(U ) Use(USER02  ) Uow(CB551DE4EF184551)                               
  Tas(0000537) Tra(YD@K)           Sus Tas Pri( 001 )                          
     Sta(S ) Use(USER02  ) Uow(CB551DEA9C3AF051) Hty(EKCWAIT )                 
  Tas(0011591) Tra(CEMT) Fac(L$YV) Sus Ter Pri( 255 )                          
     Sta(TO) Use(U0G3685 ) Uow(CB554B0AA361CE4D) Hty(ZCIOWAIT)                 
  Tas(0011715) Tra(CEMT) Fac(L1NC) Run Ter Pri( 255 )                          
     Sta(TO) Use(U0G9621 ) Uow(CB554BD2F3CEB04A)                               
                                                                               
                                                                               
L' ID terminale verrà segnalato all'interno del blocco 'Fac (....)'.
In molti sistemi, il vostro ID terminale sarà diverso ogni volta che si accede al CICS.

Quindi, immettere il comando per disattivare maiuscolo:


 CECI SET TERM (L1NC) NOUCTRAN                                     

 STATUS:  COMMAND EXECUTION COMPLETE                         NAME= 
  EXEC CICS  SET TERminal( 'L1NC' )                                

La corretta esecuzione del comando si può verificare inserendo il nome di una transazione nota ma in caratteri minuscoli. Il CICS non riconoscerà la transazione.                                                                               

Per tornare alla situazione di default basterà immettere il comando

CECI SET TERM (L1NC) UCTRAN                                                                               
                                         

(Liberamente tradotto e proficuamente utilizzato da http://softwaremiracles.com)