User Tools

Site Tools


ibm:vm370-lib:macro:ccb.macro_src

CCB Source

References

Source Listing

CCB.MACRO.txt
  1. MACRO 00001000
  2. &CCBN CCB &SYSXXX,&CCWADD,&OPTIONS,&SENSE 00002000
  3. LCLA &CLASS,&NUM 00003000
  4. LCLB &SNS 00004000
  5. LCLC &UNIT,&CCWAD,&OPTSW,&T 00005000
  6. &T SETC 'L''' 00006000
  7. AIF (T'&CCBN NE 'O').NAMOK 00007000
  8. MNOTE 0,'POSSIBLE ERROR - NAME FIELD BLANK' 00008000
  9. .NAMOK ANOP 00009000
  10. AIF (K'&SYSXXX NE 6).ERR 00010000
  11. AIF ('&SYSXXX'(1,3) NE 'SYS').ERR 00011000
  12. &UNIT SETC '&SYSXXX'(4,3) 00012000
  13. AIF ('&UNIT' LT '000' OR '&UNIT' GT '243').LTRS 00013000
  14. AIF ('&UNIT'(2,1) LT '0' OR '&UNIT'(2,1) GT '9').ERR 00014000
  15. AIF ('&UNIT'(3,1) LT '0' OR '&UNIT'(3,1) GT '9').ERR 00015000
  16. &CLASS SETA 1 00016000
  17. &NUM SETA &UNIT 00017000
  18. AGO .FND 00018000
  19. .LTRS ANOP 00019000
  20. AIF ('&UNIT' EQ 'RDRIPTPCHLSTLOGLNKRESSLBRLB000RECCLBVISCAT'X00020000
  21. (3*&NUM+1,3)).FND 00021000
  22. &NUM SETA &NUM+1 00022000
  23. AIF (&NUM LE 13).LTRS 00023000
  24. .ERR ANOP 00024000
  25. MNOTE 3,'FIRST OPERAND INVALID - ''FFFF'' GENERATED' 00025000
  26. &CLASS SETA 255 00026000
  27. &NUM SETA 255 00027000
  28. .FND ANOP 00028000
  29. &CCWAD SETC '0' 00029000
  30. AIF (T'&CCWADD EQ 'O').CCDER 00030000
  31. &CCWAD SETC '&CCWADD' 00031000
  32. AGO .CKOPT 00032000
  33. .CCDER ANOP 00033000
  34. MNOTE 0,'POSSIBLE ERROR IN SECOND OPERAND' 00034000
  35. .CKOPT ANOP 00035000
  36. &OPTSW SETC '0' 00036000
  37. AIF (T'&OPTIONS EQ 'O').ASMBL 00037000
  38. AIF (K'&OPTIONS LT 4 OR K'&OPTIONS GT 7).OPTER 00038000
  39. AIF ('&OPTIONS'(1,2) NE 'X''' OR '&OPTIONS'(K'&OPTIONS,1) NEX00039000
  40. '''').OPTER 00040000
  41. &OPTSW SETC '&OPTIONS'(3,K'&OPTIONS-3) 00041000
  42. AGO .ASMBL 00042000
  43. .OPTER ANOP 00043000
  44. MNOTE 3,'THIRD OPERAND INVALID - X''0000'' ASSUMED' 00044000
  45. .ASMBL ANOP 00045000
  46. &SNS SETB (T'&SENSE NE 'O') 00046000
  47. AIF (NOT &SNS).R2 00047000
  48. DS 0D . 00048000
  49. .R2 ANOP 00049000
  50. &CCBN DC XL2'0' . RESIDUAL COUNT 00050000
  51. DC XL2'&OPTSW' . COMMUNICATIONS BYTES 00051000
  52. DC XL2'0' . CSW STATUS BYTES 00052000
  53. DC AL1(&CLASS) . LOGICAL UNIT CLASS 00053000
  54. DC AL1(&NUM) . LOGICAL UNIT 00054000
  55. DC XL1'0' 00055000
  56. DC AL3(&CCWAD) . CCW ADDRESS 00056000
  57. DC B'00&SNS.00000' . STATUS BYTE 00057000
  58. DC AL3(0) . CSW CCW ADDRESS 00058000
  59. AIF (NOT &SNS).R1 00059000
  60. CCW 4,&SENSE,0,&T&SENSE . 00060000
  61. .R1 ANOP 00061000
  62. MEND 00062000
ibm/vm370-lib/macro/ccb.macro_src.txt ยท Last modified: 2023/08/06 13:38 by Site Administrator